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!