Macro in Mappe ohne Activate oder Select ausführen

Sub laufen lasse wird auf in einer anderen Mappe z. Beispiel
Mappe1 die gerade im Vordergrund ist eine Zelle selectiert und eingefärbt.
Wie kriege ichs hin, dass sich das selectieren und mit Offset verschieben im Hintergrund also in der Workbook Stufenprotokoll abspielt?
Das Makro läuft mit Ontime ständig, soll aber nicht jedesmal die Workbook Stufenprotokoll in den Vordergrund holen.

Sub test()
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Blatt1").Unprotect ("m")
Dim Zeit
Dim xdate
'########################## Aktuellen Tag ermitteln  ########################
Set xdate = ThisWorkbook.Worksheets("Blatt1").Columns(25).Find(Date)
xdate.Interior.ColorIndex = 6                                'Grün machen
Zeit = Time
'############ Ist Zeit grösser 5:25 Uhr bis 17:25 dann Tagschicht  #########
If Zeit > "05:25:00" And Zeit < "17:25:00" Then
ActiveCell.Offset(0, 2).Activate
ActiveCell.Interior.ColorIndex = 4  'markiert den heutigen Tag Grün
ActiveCell.Select
Selection.Copy
Range("Z17").Select
ActiveSheet.Paste Destination:=Worksheets("Blatt1").Range("Z17")
Range("Schicht").Value = Range("Z17").Value
End Sub


Das Makro funktioniert für sich alleine aber wie noch andere Mappen offen sind.

Kann ich diesen Code  "trennen"?

Noch nen guten Abend

Danke Egon