Select text boxes code
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 |
Select text boxes code
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 |
Select text boxes code
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/ |
All times are GMT +1. The time now is 01:40 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com