Update Time Automatically

[kumara_faith]

Hi,

Is is possible to have Excel update time automatically in a given cell within the spreadheet.

I have a spreadsheet that I need Excel to update the time automatically .

I would like Excel to update the time automatically in cell A1.

I have done some research and found the following thread but this only works when we close and open the spreadsheet.

http://www.mrexcel.com/archive2/70800/82079.htm

Is there a way to have Excel update the time without having to close the spreadsheet ?

Thanks.

 

[kumara_faith]

Vog II,

I tried that but the same thing happens.

Since I am new to VBA, let me again outline exactly how I have done this.

1) Click on cell C1 and format to hh:mm:ss
2) Alt F11
3) Insert > Module
4) Paste the following codes

Sub TickTock()
ThisWorkbook.Sheets("POI_Simulation_Test").Range("C1").Value = Now()
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "TickTock"
End Sub

Sub StopClock()
On Error Resume Next
Application.OnTime earliesttime:=NextTick, procedure:="TickTock", schedule:=False
On Error GoTo 0
End Sub

5) Right click on ThisWorkbook > View Code
6) Paste the following codes

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call StopClock
End Sub

Private Sub Workbook_Open()
Call TickTock
End Sub

7) Save and return to active sheet
8) Set macro to Low
9) Go to Tools > Macro > Macros, highlight StopClock and click Run.
9) Set macro to Low
10) Close workbook
11) Open workbook

However , when I close the workbook in step 11, the spreadsheet opens again.

Is there anything I am doing incorrectly ?

Thanks and appreciate all your patience.

 

[VoG]

What you have done seems correct to me. what is not working?

Incidentally, why do you need this? On my computer the time is shown in the Notification Area