Is this what you want?
Sub defineabove()
x = ActiveCell.Offset(-1).Address
MsgBox x

End Sub


"Thomas" wrote in message
...
How would I define the cell address of the cell above my
activecell?

Thanks in advance