Löschen von Formen und Inhalt Tetfelder

[ChrisKay86]

Hallo Chris,

mit den richtigen Namen so:

Dim oShape As Shape
For Each oShape In ActiveSheet.Shapes
 Select Case oShape.Name
   Case "Reset", "Bike", "Picture 8"
     '  nix machen
   Case "TextBox 2", "TextBox 7"
     oShape.OLEFormat.Object.Text = ""
   Case Else
     oShape.Delete
 End Select
Next oShape

Gruß Uwe

Danke Uwe, läuft super!