The following line will return the Row of the top left cell for shape 1.MsgBox ActiveSheet.Shapes(1).TopLeftCell.Row