VBA: Show timer on sheet then hide sheet

[bamaisgreat]

I have a sheet named SEND FORM that has some info that I would like for the user to see for about 10sec when he opens the work book and then it will hide and show the sheet they will be working in named STOCK CUTTING FORM.. Also is it possible to have the 10 sec timer to be shown in cell L12 in the SEND FORM sheet... I already have a couple of things in my open event which are below

Private Sub Workbook_Open()
 Call RunOnTime
 Call ShowMsg
 End Sub

 

[CMAnslow]

Hi,

The following code works for this, however the watch out is if the 1 sec delay misses the timestamp it goes into an infinte loop.

Private Sub Workbook_Open()
Sheets(1).Visible = True
Sheets(2).Visible = False
icounter = 10
Do Until icounter = 0
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Range("B2").Value = icounter
Application.Wait waitTime
icounter = icounter - 1
Loop
Sheets(2).Visible = True
Sheets(1).Visible = False
End Sub

Would be interested if theres a better way of doing it

 

[bamaisgreat]

ok I will try this. Why would it miss the time stamp? If it does go into a loop what can I do to stop it? Thanks for your response.