Surely, you need to save the cell in a variable, such as

Dim oCell as Range

Set oCell = Activecell
' do your stuff elsewhere
oCell.Select

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Dan" wrote in message
...
I am trying to retain the a cell address so that after I
perform a few other routines I can go back to that cell
(activate) and do other things. This is what I have and
its not working.

Dim st As String

If IsEmpty(ActiveCell)=True