Sub test()
Dim shp As Shape

For Each shp In ActiveSheet.Shapes
If shp.Type = msoFormControl Then
If shp.FormControlType = xlLabel Then
shp.TextFrame.Characters.Text = ""
End If
End If
Next
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"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.