Help with VB Code Please

[Get_Involved]

I have this VB code in Module1

 Dim TimerActive As Boolean
Sub StartTimer()
    Start_Timer
End Sub
Private Sub Start_Timer()
    TimerActive = True
    Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
End Sub
Private Sub Stop_Timer()
    TimerActive = False
End Sub
Private Sub Timer()
    If TimerActive Then
        ActiveSheet.Cells(6, 3).Value = Date + Time
        Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
    End If
End Sub

And this code in ThisWorkbook

Private Sub Workbook_Open()
    Module1.StartTimer
End Sub

This code is working.
I have 8 sheets in this workbook, and the code puts the clock on all 8 sheets when opening
How can I restructure the code to only run on Sheet2?
I have tried everything, then it doesn’t work at all.
Any help would be appreciated.

 

[DeBeuz]

Hi,

What happens if you try to replace 'ActiveSheet' with 'Sheets(2)' or 'Sheet2' or 'Sheets("name_of_sheet2<name_of_sheet2>")'?</name_of_sheet2>

 

[Get_Involved]

What happens I try to replace 'ActiveSheet' with 'Sheets(2)' or 'Sheet2' or 'Sheets("name_of_sheet2")'?
I get Debug with a yellow high lite all the way across, or a red high lite at the word Cells.

 

[Logit]

.
Paste the following into a Routine Module :

Option Explicit


Dim TimerActive As Boolean
Sub StartTimer()
    Start_Timer
End Sub
Private Sub Start_Timer()
    TimerActive = True
    Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
End Sub
Private Sub Stop_Timer()
    TimerActive = False
End Sub
Private Sub Timer()
    If TimerActive Then
        Sheet2.Cells(6, 3).Value = Date + Time
        Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
    End If
End Sub