Try this.
Application.Goto ThisWorkbook.Sheets("Sheet2").Range("A1")