Rodar macro excel sem atrapalhar o uso de outras planilhas

[Douglas Souzaps]

Boa tarde galera, sou novo no fórum e estou iniciando em macros no excel, criei a seguinte macro para criar uma ferramenta de timesheet:

 

Sub StartClock()
ActiveSheet.Unprotect Password:="douglasps"
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.ShapeRange.ZOrder msoSendToBack
Range("I8").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("I8").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect Password:="douglasps"
Go = True
MyClock
ActiveWorkbook.Save
Range("H7").Select
End Sub

Sub MyClock()
If Go Then
ActiveSheet.Calculate
Application.OnTime Now() + TimeValue("00:00:01"), "MyClock"
End If
End Sub

Sub StopClock()
ActiveSheet.Unprotect Password:="douglasps"
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.ShapeRange.ZOrder msoBringToFront
Range("A1").Select
Go = False
ActiveSheet.Protect Password:="douglasps"
ActiveWorkbook.Save
Range("H7").Select
End Sub

 

A ferramenta funciona perfeitamente, o unico problema é que ela intefere em qualquer outra planilha que eu abrir... 

Alguém consegue me ajudar com isso?

Tks

 

[Basole]

Tente referenciar ActiveSheet a Thisworkbook:

 

Ex.:

	With Thisworkbook
	.ActiveSheet....
	.ActiveSheet....
	End With