Hi ME,.

'=============
Public Sub Tester002()
Dim sAddress As String

sAddress = ActiveSheet.Shapes(Application.Caller). _
TopLeftCell.Address
MsgBox sAddress
End Sub
'<<=============


---
Regards,
Norman


"ME @ Home" wrote in message
...
i have a sheet which among other things contains 3 coloum of images, the
idea
of the images is that once clicked they activate a macro which runs asking
the user 4 questions , the macro then pastes the data into a preset area
(in
the same row as the button and then deletes the pic that was clicked)

at the min it looks like i have to write identical macros for each image ,
with only the position (row) numbers changing,,,, is their a macro \
control
function that can read the location of the picture

row a b c d e
name picture picture

row b is fixed data .... row c,d,e are where data will be entered by the
macro after the ? are ansered