Hello celialynn,

Just remove this line from wherever it appears in your Code:

Application.Goto Reference:=ActiveCell, Scroll:=True