Timer for sheet

Hi Andre,

I don't know how you want to trigger the code, but running start_timer will wait 2 minutes, then worksheet "Start" will activate.

Sub start_timer()

Application.OnTime Now + TimeValue("00:02:00"), "goto_sheet"

End Sub

Sub goto_sheet()

Worksheets("Start").Activate

End Sub

Sir askadi how to do use doevents not application on time.. I ever see use doevents how to fix this code

Sub start_timer()
Dim t
t =timer
Do 
Doevents
If format(round(t - timer,2),"00:00:00.00")="02.00" then
Sheets("start").activate
Exit do
End if
Loop
End Sub

[/QUOTE]

DoEvents just allows the code to delay to run other things (I don't find it helps a lot most of the time), however, the method you are looking for should be something like this... round, 2 gives seconds which is why I've made it stop at 120. I put >= in case it is 121 seconds for some reason... if we stop only if =120 then if we miss 120 exactly it will never stop:

Sub start_timer()

Dim t
t = Timer
Do
    DoEvents
    If Round(Timer - t, 2) >= 120 Then
        Sheets("start").Activate
        Exit Do
    End If
Loop

End Sub