Try this

Option Explicit

Private Sub Workbook_Open()
Application.Goto Sheet1.Range("a42"), True
End Sub