delete text from worksheet textbox (Shape) using VBA

[Mikeymike_W]

Hi there,

Could anyone possible tell me how to use VBA to delete the text from text boxes i have on my worksheet.
These are just standard textboxes, not sure if they are referred to as shapes.
I have multiple textboxes so would ideally want the code to run through them all and delete the content only.

I have some code that I already use for activex textboxes, option button and comboboxes

 Dim oCtrl As OLEObject
 Dim shp As Shape
 
  For Each oCtrl In ActiveSheet.OLEObjects
    If TypeOf oCtrl.Object Is MSForms.TextBox Or _
       TypeOf oCtrl.Object Is MSForms.ComboBox Then
        oCtrl.Object.Value = ""
    ElseIf TypeOf oCtrl.Object Is MSForms.OptionButton Then
        oCtrl.Object.Value = False
    End If
  Next oCtrl

Thanks in advance for your help,

Mike

 

[Yongle]

One way

Sub LoopTextBoxes()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoTextBox Then shp.TextFrame.Characters.Text = ""
    Next
End Sub

 

[Mikeymike_W]

Yongle that worked a charm, thank you so much!