Shape.TopLeftCell (Excel)

Retorna um objeto Range que representa a célula que está sob o canto superior esquerdo do objeto especificado. Somente leitura.

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