Clear TextBox1 when workbook close

[ipbr21054]

Hi,
I have a TextBox on my worksheet which i would like to clear when workbook is closed.

I have this below but will not clear it.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
Sheets("HONDA SHEET").Range("A13,A17").ClearContents
Sheets("HONDA LIST").TextBox1.Value = ""
Application.EnableEvents = True
End Sub

 

[BobUmlas]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("HONDA SHEET").Range("A13,A17").ClearContents
Sheets("HONDA LIST").Shapes("Textbox 1").TextFrame2.TextRange.Characters.Text = ""
End Sub

(No need to toggle EnableEvents

 

[ipbr21054]

How do i apply this textbox now as i see text frame in your code ?