Hi, Jiptastic,

why don´t you use
Application.Goto Reference:=Sheets("Sheet1").Range("A1")
Ciao,
Holger