Laufzeitfehler '-2147024809
Peter
ich bin etwas verzweifelt, da mein Makro bisher ging. Auch ein System Neustart hat nichts gebracht. Seit dem erstellen hat sich nur die Anzahl der shapes im Workbook geändert. Die shapes simd benannt udn mit einem Hyperlink versehen.
Hier Mein Code:
Option Explicit
Sub KillShapes()
Dim sh As Shape
Set sh = ActiveSheet.Shapes(mstrFileName)
Rows(sh.TopLeftCell.Row).Delete
End Sub
Ich hoffe ihr könnt mir weiter helfen. Vielen Dank im vorrausMfG Péter