Delete Textboxes Only with VBA

[karabiner8]

Hi All,

I want to delete a textbox (the kind you would insert from the Drawing toolbar) using VBA. I found some code that kind of worked, it deleted the textbox but unfortunately it also deleted all the macro buttons I had on the same worksheet. Can someone suggest how I might change this code to only erase textboxes (remove them, not delete the text from within them). I won't know the name of the textbox ahead of time.

Thanks

For i = ActiveSheet.Shapes.Count To 1 Step -1
     ActiveSheet.Shapes(i).Delete
Next i

 

[Gary McMaster]

Dim oTextBox As TextBox

For Each oTextBox In ActiveSheet.TextBoxes
    oTextBox.Delete
Next oTextBox

Gary

 

[karabiner8]

Thanks Gary. That's exactly what I was looking for.