Hi Cyberarmao,

Is this a control from the Forms toolbar?

Try:

'=============
Public Sub Tester()
Dim OpTopLeft As String

OpTopLeft = ActiveSheet.OptionButtons _
("Option Button 2").TopLeftCell.Address(0, 0)

MsgBox OpTopLeft

End Sub
'<<=============

---
Regards,
Norman


"cyberarmao" wrote in message
...
I create a sheet , add some controls at the cells,
Sample: at cell(10,1), add a optionbutton, when click the button, I will
write some text at cell(10,3)......

I can get the controls' x/y-ray, but the 1-9 row height are not same, so
cant calculate the row number by the way.

Pls help me, thank you.