Laufzeitfehler 424
vossl
ich hoffe, es kann hier jemand helfen. Ich bekomme bei folgendem Code den "Laufzeitfehler 424 Objekt erforderlich", was genau ist das Problem?
Sub Workbook_Save()
Dim A As String
A = Sheets("Tabelle1").[G2].Value
If A "Passwort" Then
ActiveSheet.Range("A1:Q710").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
ActiveSheet.Rows("1:65536").Select
Selection.Delete
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
End If
End Sub
Vielen Dank für eure Antworten!