Find location of shape

[fredrerik84]

Hi guys im trying to quickly find the row number of my shapes., they are added trough another macro.

I had success with this code to find the location:

   For Each Shp In ActiveSheet.Shapes
      If Shp.Name = Application.Caller Then StartPos = Shp.TopLeftCell.Row
   Next Shp

But can this be done faster? since doing it this way it would need to loop trough all shapes to find the pos

Frederik

 

[fredrerik84]

You can use:

ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address(False, False)

Cheers