Stop macro from switching between sheets

[Anton1999]

Good afternoon everyone,

Sub Stop_Timer()
        On Error Resume Next
        Application.OnTime Now + TimeValue("00:00:01"), "IncreamentTimer", schedule:=False
        If Err = 0 Then
        Application.ScreenUpdating = False
                ThisWorkbook.Sheets("Sheet1").Range("L9").Value = Format(Range("K8").Value - ThisWorkbook.Sheets("Sheet1").Range("K9").Value, "hh:mm:ss")
                ThisWorkbook.Sheets("Time Summary").Select
                ThisWorkbook.Worksheets("Time Summary").Range("E12").Select
                Selection.Copy
                ThisWorkbook.Worksheets("Time Summary").Range("H12").Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
                ThisWorkbook.Sheets("Sheet1").Range("J8").Value = "Timer OFF"
                ThisWorkbook.Sheets("Sheet1").Range("J8").Font.Color = vbBlack
               
        Else
         
                MsgBox "Timer is currently OFF.", vbExclamation, "Timer is OFF!"
   

                 End If
    
End Sub

When the value is pasted in the Time Summary sheet, Excel switches to that sheet, instead of just pasting the values and staying in the current sheet1 that I am in.
The screen should not jump to the Time Summary sheet.

Can someone please assist.

 

[Fluff]

How about

Sub Stop_Timer()
        On Error Resume Next
        Application.OnTime Now + TimeValue("00:00:01"), "IncreamentTimer", schedule:=False
        If Err = 0 Then
        Application.ScreenUpdating = False
                ThisWorkbook.Sheets("Sheet1").Range("L9").Value = Format(Range("K8").Value - ThisWorkbook.Sheets("Sheet1").Range("K9").Value, "hh:mm:ss")
                ThisWorkbook.Worksheets("Time Summary").Range("E12").Copy
                ThisWorkbook.Worksheets("Time Summary").Range("H12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False
                ThisWorkbook.Sheets("Sheet1").Range("J8").Value = "Timer OFF"
                ThisWorkbook.Sheets("Sheet1").Range("J8").Font.Color = vbBlack
               
        Else
         
                MsgBox "Timer is currently OFF.", vbExclamation, "Timer is OFF!"
   

                 End If
    
End Sub

 

[dmt32]

try

Sub Stop_Timer()
    Dim wsSheet1 As Worksheet, wsTimeSummary As Worksheet
    
    With ThisWorkbook
        Set wsSheet1 = .Worksheets("Sheet1")
        Set wsTimeSummary = .Worksheets("Time Summary")
    End With
    
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "IncreamentTimer", schedule:=False
    
    If Err = 0 Then
    
        With wsSheet1
            .Range("L9").Value = Format(.Range("K8").Value - .Range("K9").Value, "hh:mm:ss")
            .Range("J8").Value = "Timer OFF"
            .Range("J8").Font.Color = vbBlack
        End With
        
        With wsTimeSummary
            .Range("E12").Copy
            .Range("H12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                                       SkipBlanks:=False, Transpose:=False
        End With
        Application.CutCopyMode = False
    Else
        
        MsgBox "Timer Is currently OFF.", vbExclamation, "Timer Is OFF!"
        
    End If
    
End Sub

Dave

 

[Anton1999]

Fantastic! Fixed my problem, instantly. Thank you Dave.

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[dmt32]

Fantastic! Fixed my problem, instantly. Thank you Dave.

Pleased your issue resolved - we all work as a team here & we appreciate your feedback.

Dave