i posted a question last night about this and the answer was not as
effective as i would have liked. i have a sheet with ove 100 labels on it
and i am trying to clear all of their captions wih a loop. someone gave me
this code:

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

which did not do what i expected. can anyone offer anything further? see
post on 11/20 @ 12:00 AM
Thank you.