I think this should work for you -

Private Sub Workbook_Open()
Sheets("Sheet1").Activate
Range("A1").Select
End Sub
Just paste it into the 'This workbook' section in VB.