Unable to set the Text property of the characters class

[AndyGav86]

Sub ClearContents1()

Sheet1.Range("A3:A6,B6,B8:B36,C8:C36,D8:D36").ClearContents

Sheet2.Range("B4:C6,D4,A11:D11,A16:C16,D21:D24,B30:C30,B34:C34,B39:C39,A44:B44,A46:B46,A50:B50,A52:B52,A57:D60,B64:B67,C65,C72:D76,E80:E86,E89,B90:B94,B96:B100,D90:D94,D96:D100,C104:D111,A113:D113").ClearContents

Sheet1.Shapes("TextBox 1").Select
Selection.Characters.Text = ""

Sheet2.Shapes("TextBox 3").Select
Selection.Characters.Text = ""

End Sub

How do i fix this error please?

It wont clear TextBox 1

 

[DanteAmor]

Hello @AndyGav86

Try this:

Sub ClearContents1()
  Application.ScreenUpdating = False
  Sheet1.Select
  Sheet1.Range("A3:A6,B6,B8:B36,C8:C36,D8:D36").ClearContents
  Sheet1.Shapes("TextBox 1").Select
  Selection.Characters.Text = ""
  
  Sheet2.Select
  Sheet2.Range("B4:C6,D4,A11:D11,A16:C16,D21:D24,B30:C30,B34:C34," & _
               "B39:C39,A44:B44,A46:B46,A50:B50,A52:B52,A57:D60," & _
               "B64:B67,C65,C72:D76,E80:E86,E89,B90:B94,B96:B100," & _
               "D90:D94,D96:D100,C104:D111,A113:D113").ClearContents
  Sheet2.Shapes("TextBox 3").Select
  Selection.Characters.Text = ""
  Application.ScreenUpdating = True
End Sub

 

[Fluff]

You could also use

Sheet1.Shapes("TextBox 1").TextFrame.Characters.Text = ""

without the need for selecting anything

 

[AndyGav86]

You could also use

Sheet1.Shapes("TextBox 1").TextFrame.Characters.Text = ""

without the need for selecting anything

Done it again Fluff Thank You

 

[Fluff]

Glad we could help & thanks for the feedback.