How to create a countdown timer in a worksheet, like a stopwatch counting
down the seconds/minutes when you click on a START button until you click on
a STOP button

See http://www.xldynamic.com/source/xld.XtraTime.html

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Fred" wrote in message
...
How to create a countdown timer in a worksheet, like a stopwatch counting
down the seconds/minutes when you click on a START button until you click
on
a STOP button

Public myStartTime As Date
Sub StartTime()
myStartTime = Date + Time

End Sub
Sub StopTime()
Dim myStopTime As Date
Dim Elapsed As Date
Debug.Print myStartTime

If myStartTime = 0 Then
MsgBox ("You have not pressed the START BUTTON first")
Else

myStopTime = Date + Time
Elapsed = myStopTime - myStartTime
MsgBox ("Elapsed time is " & Elapsed)
myStartTime = 0
End If

End Sub

Attach each macro to a different button. You may need to change the
format of Elapsed.
--
HTH,
Barb Reinhardt



"Fred" wrote:

How to create a countdown timer in a worksheet, like a stopwatch counting
down the seconds/minutes when you click on a START button until you click on
a STOP button