Writing Variable to Cell

[MAS]

Hi,

I have some code as follows;

************************************
Public RunWhen As Double
Public Const cRunIntervalSeconds = 600 '10 mins
Public Const cRunWhat = "Close_Sub"

Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat,
Schedule:=True
End Sub
*************************************

This works fine, but I want to be able to show add the time of 'RunWhen' to
cell C3. How do I do it

 

[Bob Phillips]

Range("C3").Value = Format(RunWhen,"hh:mm:ss")

 

[Guest]

Include

Worksheets("InsertWorksheetNameHere").Range("C3")=runwhen