delete from text box using command button
i am trying to write some code to clear a text box .the text box is from the
drawing toolbar. i have trid the following but to no avail:
Private Sub CommandButton3_Click()
With Sheet2.Shapes("Text Box 1").TextFrame
..Characters(.Characters.Count + 1).ClearContents
End With
End Sub
any suggestions
regards john
|