Or

rw = ActiveSheet.Shapes(Application.Caller).TopLeftCell .Row



Ron de Bruin wrote:

Hi

Try this

Dim rw As Long
rw = Range(ActiveSheet.Shapes(Application.Caller).TopLe ftCell.Address).Row
Range(Cells(rw, "A"), Cells(rw, "D")).Select

--
Regards Ron De Bruin
http://www.rondebruin.nl

"Newt" wrote in message ...
I would like to use a series of shapes to clear cells on a worksheet. For
example:

Shape1 exists in Cell A1. When clicked, it clears cells B1 and C1
Shape 2 exists in Cell A2. When clicked, it clears cells B2 and C2

and so on.

I need the references to be relative because I regularly re-sort the sheet
and the order of the shapes changes with all the cells. Basically, I want a
sub to figure out where the image is located and then clear the two adjacent
cells. Any ideas? Thanks!

--

Dave Peterson