If I understand correctly... the following might work.Dim StartAddress$StartAddress$ = Activecell.Address"do your code here"Range(StartAddress$).Select