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

Hi Nicky, first time we have spoken but thanks for the text boxe code.
made a few changes but your idea was great. Greatly appreciated!

Thanks,
B

--
Message posted from http://www.ExcelForum.com

Drawing toolbar Textboxes

--
Regards,
Tom Ogilvy

Bourbon wrote in message
...
Hi Nicky, first time we have spoken but thanks for the text boxe code. I
made a few changes but your idea was great. Greatly appreciated!

Thanks,
B.


---
Message posted from http://www.ExcelForum.com/