les, try one of these and see if it's what you want.

Sub test()
MsgBox ActiveCell.Address
MsgBox ActiveCell.Address(0, 0)
MsgBox ActiveCell.Address(0)
MsgBox ActiveCell.Address(, 0)
End Sub

--


Gary


"Les" wrote in message
...
Hi,

could anybody help with this please ?

I need the cell reference to read A25 and not $A$25

Any help much appreciated
--
Les