Shape.TopLeftCell (Excel)

Returns a Range object that represents the cell that lies under the upper-left corner of the specified object.

Dim shp As Shape: Set shp = 
Dim rngTopLeftCell As Range
Set rngTopLeftCell = shp.TopLeftCell