I have this code to display a real-time clock on a worksheet. However if I do
anything else with in the workbook or worksheet such as type in a cell i get
an error message "application defined or error defined error". How do I get
rid of this problem?

Function GetRealDate() As Date
   
   Dim ieApp As Object
   Dim i As Long
   Dim strTime As String
   Dim strHour As String
   Dim strMinute As String
   Dim strSecond As String
   Dim lFirstCom As Long
   
   Const sURL = "http://www.time.gov/timezone.cgi?Central/d/-6"
   Const lElement As Long = 36
   Const ieREADYSTATE_COMPLETE As Long = 4
   
   Set ieApp = CreateObject("InternetExplorer.Application")
   
   ieApp.navigate sURL
   
   Do
       DoEvents
   Loop Until ieApp.ReadyState = ieREADYSTATE_COMPLETE
   
   strTime = Left(ieApp.Document.all(lElement).innertext, 40)
   
   'store hour
   strHour = Left(strTime, 2)
   
   If Right(strHour, 1) = ":" Then
       strHour = Left(strTime, 1)
   End If
 
   'store minute
   strMinute = Mid(strTime, 4, 2)
   
   'store second
   'strSecond = Mid(strTime, 7, 2)
   
   Sheets("Actual").Range("I2").Value = strHour
   
   Sheets("Actual").Range("J2").Value = strMinute
   
   'Range("C1").Value = strSecond
       
End Function