dim rng as range
' looping structure
if isempty(ActiveCell) then
set rng = ActiveCell
End if

' loop ends


rng.Activate

--- or -----

Dim x as String
x = ActiveCell.Address

' time passes

Range(x).Activate

--
Regards,
Tom Ogilvy

wrote in message
oups.com...
Chip-

Yeah...I wasn't that clear. The Active cell ("B1" above) is dynamic.
It isn't always B1. How do I set the variable to the cell that is
blank and hold that value?

Something like...

Dim Rng As Range
Set Rng = ActiveCell.Address

?????

Thanks,
Chris