Try something like the following:

Dim SH As Shape
Set SH = ActiveSheet.Shapes("TheShape")
Debug.Print SH.TopLeftCell.Address


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"ecpl_3" wrote in message
...
how do I get the reference of the cell where a pictue/shape
resides?