Airborne
11-14-2004, 08:32 AM
Hi, I have a macro that clears all my textboxes on sheet "Data". It looks like this
Sub ClearText()
ActiveSheet.Shapes("Text 5").Select
Selection.Characters.Text = ""
ActiveSheet.Shapes("Text 22").Select
Selection.Characters.Text = ""
ActiveSheet.Shapes("Text 23").Select
Selection.Characters.Text = ""
ActiveSheet.Shapes("Text 24").Select
Selection.Characters.Text = ""
ActiveSheet.Shapes("Text 25").Select
Selection.Characters.Text = ""
ActiveSheet.Shapes("Text 26").Select
Selection.Characters.Text = ""
Range("A8").Select
End Sub
My question is...is this the proper way or is there a shorter way?
I know I should take the course and believe me I'm saving for it:blush .
Sub ClearText()
ActiveSheet.Shapes("Text 5").Select
Selection.Characters.Text = ""
ActiveSheet.Shapes("Text 22").Select
Selection.Characters.Text = ""
ActiveSheet.Shapes("Text 23").Select
Selection.Characters.Text = ""
ActiveSheet.Shapes("Text 24").Select
Selection.Characters.Text = ""
ActiveSheet.Shapes("Text 25").Select
Selection.Characters.Text = ""
ActiveSheet.Shapes("Text 26").Select
Selection.Characters.Text = ""
Range("A8").Select
End Sub
My question is...is this the proper way or is there a shorter way?
I know I should take the course and believe me I'm saving for it:blush .