Why not just?
Application.GoTo Sheets("SheetName").Range("A1"), True