Estou com um código de contagem regressiva, para controle de produção. Coloco para funcionar normalmente, porém quando altero para outra planilha, para fazer outros serviços, a cronometragem acusa erro e para, gostaria de executar meu código somente naquela planilha..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime40"
End Sub
Sub ResetTime40()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("F22")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "W.O Finalizada Maq 01 MORONI"
    Exit Sub
End If
Call Timer

End Sub