timer code not working

[flyinghigher2011]

here is my timer code:

Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "increment_count"
End Sub

Sub increment_count()
Range("G12").Value = Range("G12") - 1
startTimer
PauseTime = 0
Start = Timer
Do While Timer < Start + PauseTime
Loop
End Sub

Sub StopTimer()
Application.OnTime Now + TimeValue("00:00:01"), "increment_count", schedule:=False
End Sub

my problem is that the timer does not stop at "0" it continues -1 -2 etc. Also where would i put the following code:

MsgBox "Time Up! How Did You Do?"
Me.Hide
Exit Sub

and when the ok button is clicked i need it to open up userform1

can someone please help

[HaHoBe]

Hi, flyinghigher2011,

please wrap your procedure up in code-tags (and maybe explain in words what you are after).

Ciao,
Holger

[flyinghigher2011]

sorry about the code thing!!

ok here is the code

Please Login or Register  to view this content.

everything works ok until the end and the counter is "0" then my pop up message comes up then the code for my stop button turns yellow, the code is from my module 7, one other thing is that the counter the continues counting -1 -2 -3 -4 etc which it should not do, it should reset back to 65 seconds

[HaHoBe]

Hi, flyinghigher2011

what about the code I posted in your other thread at http://www.excelforum.com/excel-prog...own-timer.html - I think that should do the trick.

Ciao,
Holger

[arlu1201]

Welcome to the Forum, unfortunately:

This is a duplicate post and as such does not comply with Rule 5 of our forum rules. This thread will now be closed, you may continue in your other thread.

Thread Closed.