Probably the simplest way is:

Sub cellTotop()
Set x = ActiveCell
Application.Goto x, scroll:=True
End Sub

This way you don't have to worry about named ranges vs variables.


"ranswert" wrote:

Is there a way when a cell is selected in a procedure when the procedure is
done that cell is in the top left portion of the screen?
Thanks