Sub button1_click()
Dim shp As Shape
Dim rng As Range

Set shp = ActiveSheet.Shapes(Application.Caller)

Set rng = shp.BottomRightCell.EntireRow
rng.Select




End Sub

run from the click event


--
tony h
------------------------------------------------------------------------
tony h's Profile: http://www.excelforum.com/member.php...o&userid=21074
View this thread: http://www.excelforum.com/showthread...hreadid=503367