Hallo zusammen

hat jemand eine Idee wie ich folgendes makro aktivieren kann sobald ich Crtl+P (also den Druck starte).

Private Sub Worksheet_Activate()
'***********************Für PFC angewnedet um daten in die Kopfzeile zu schreiben*****************************
On Error GoTo Ende
With ActiveSheet.PageSetup
.LeftHeader = Worksheets("Standards").Range("I6") & vbLf & "Rev.:" & " " & Worksheets("Standards").Range("I4") & vbLf & "Date (Rev.):" & " " & Worksheets("Standards").Range("I5")
'.CenterHeader = Range("B1")
'.RightHeader = Range("C1")
End With
Ende:
End Sub

Worksheet Activate war bisher ganz cool, blockiert mir aber ein Makro zum Einfügen von Objekten aus einem anderen Blatt.

Vielel Grüße