clear captions from all labels
You didn't specify if your Labels are from the Forms or Controls toolbox
menu. But have a go with this:
Sub LabelsText()
Dim str As String
str = "Some text"
'str = ""
'Forms menu
'On Error Resume Next 'in case no labels on sheet
ActiveSheet.Labels.Text = str
On Error GoTo 0
'Controls toolbox
Dim ob As Object
For Each ob In ActiveSheet.OLEObjects
If TypeName(ob.Object) = "Label" Then
ob.Object.Caption = str
End If
Next
End Sub
Regards,
Peter
"Spencer Hutton" wrote in message
m...
i have a sheet with over 100 labels on it. i need a statement that will
set
all of their captions to blank. this is what i have, but it is not
working.
can someone help
For Each Label in Sheets("PickSheet").Labels
Label.Caption = ""
Next
how can i rephrase this to make it work. TIA.
|