Typo?
Are you sure you dont mean:
Set r = ActiveCell

--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Jan Karel Pieterse" wrote in message
...
Hi Al,

Sub test()
Dim r As Range
r = ActiveCell.Address
MsgBox r
Exit Sub


Make that:

Set r = ActiveCell.Address

Regards,

Jan Karel Pieterse
Excel MVP
www.jkp-ads.com