The following was entered in a normal module:
Dim CountDown As Date
Sub Timer()
CountDown = Now + TimeValue(”00:00:05″)
Application.OnTime CountDown, “Reset”
End Sub
Sub Reset()
Count = Sheets(1).[A1].Value – 1
For a = 1 To Sheets.Count
Next
If Sheets(1).[A1].Value <= 0 Then
MsgBox "Time is Up."
Exit Sub
End If
Call Timer
End Sub
Sub DisableTimer()
On Error Resume Next
Application.OnTime EarliestTime:=CountDown, Procedure:="Reset", Schedule:=False
End Sub

…. my spreadsheet is open???

my last excel question brought up this new question.
ive written some basic Visual Basic scripts in Excel 2000. i saved them in personal.xls, and made icons for them.
they arent very complicated. stuff like change selected cells to (upper/lower/sentance/title) case. and save a file in a certain directory and use specific cells in the workbook as the filename. stuff like that.
also will i be able to make my own icons in excel 2007? i havent actually used the program yet, but i may be forced to upgrade at work in ‘08.