• In Sheet1, in A1 column i have a date time data (3/12/2013 06:00:00). This is target time.
  • In B1 there is now() function. This is current time.
  • In C1 the time difference has been calculated. This is time remaining.

Now in Module 1 the following codes are written for the current time to autoupdate

Sub UpDateClock()
' *** Change Sheet name and Range reference to suit ***
Worksheets("ALL_CIRCLE").Range("O2").Calculate
Application.OnTime Now + TimeValue("00:00:01"), "UpdateClock"
End Sub
In Module 2 the following codes are written for autoScroll.

Sub Macro2()
Dim x As Single
Dim Lr As Long, i As Long
Lr = Cells(Rows.Count, "E").End(xlUp).Row - 1

For i = 1 To Lr
ActiveWindow.SmallScroll Down:=1
x = Timer
While Timer - x < 5
Wend
Next i
End Sub

When i am running the the first Module it is working fine. Now when i am running Module 2 autoscroll starts but the autoupdation of time stops and an hourglass is appearing. When i hit Escape module 2 stops and module 1 again starts running.

How to run Both at a time?