ActiveCell.Formula = "=" & ActiveCell.Offset(0, -1).Address(false,false) &
"-4"


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"hawki" wrote in message
...
The macro below returns a forumula that has an address that is absolute.
How
would I force the macro to return an address that is relative (without the
dollar signs)?

ActiveCell.Formula = "=" & ActiveCell.Offset(0, -1).Address & "-4"

--
l-hawk