Hi B
This selects them
Sub select_shapes_in_col_e()
Dim shape_names()
shape_names = Array()
n = 0
For Each ss In ActiveSheet.Shapes
If ss.TopLeftCell.Column = 5 And ss.Type = 17 Then
ReDim Preserve shape_names(n)
shape_names(n) = ss.Name
n = 1 + n
End If
Next
ActiveSheet.Shapes.Range(shape_names).Select
End Su
--
Message posted from
http://www.ExcelForum.com