dynamic clock

[apgmin]

I am using the following clock as VBA It works fine, Can anyone help me and tell me how I can put it in other sheets also?

Excel for Beginners - CLOCK WITH AUTOMATIC REFRESH

CLOCK WITH AUTOMATIC REFRESH Use & Explanation: The steps below will show you how to make a clock that automatically refreshes without having to use the F9 key. STEPS IN DETAIL

sites.google.com

 

[Scott Huish]

Dim SchedRecalc As Date

Sub Recalc()

With Sheet1.Range("A1")

.Value = Format(Time, "hh:mm:ss AM/PM")

End With

Call SetTime

End Sub

Sub SetTime()

SchedRecalc = Now + TimeValue("00:00:01")

Application.OnTime SchedRecalc, "Recalc"

End Sub

Sub Disable()

On Error Resume Next

Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False

End Sub

The line I highlighted in red is the part that does it. You could just change that. You can change the Sheet1 to the actual name of the sheet if you want, i.e. With Worksheets("Sheet1").Range("A1")

 

[apgmin]

Dim SchedRecalc As Date

Sub Recalc()

With Sheet1.Range("A1")

.Value = Format(Time, "hh:mm:ss AM/PM")

End With

Call SetTime

End Sub

Sub SetTime()

SchedRecalc = Now + TimeValue("00:00:01")

Application.OnTime SchedRecalc, "Recalc"

End Sub

Sub Disable()

On Error Resume Next

Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False

End Sub

The line I highlighted in red is the part that does it. You could just change that. You can change the Sheet1 to the actual name of the sheet if you want, i.e. With Worksheets("Sheet1").Range("A1")

I already did that. This way the clock comes on the sheet and cell you mention.
How do I get the clock on multiple sheets

 

[Scott Huish]

I would just reference that cell on the other sheets with a formula like this:
=Sheet1!A1