I don't know why but the work around I use is:
Application.GoTo Sheets("Sheet1").Range("A1")

Charles

Ed wrote:
I have a Workbook_Open macro as follows:

Private Sub Workbook_Open()

Worksheets("Sheet2").Visible = True
Worksheets("Sheet3").Visible = xlVeryHidden
Worksheets("Sheet1").Visible = True
Worksheets("Sheet1").Range("A1").Select

End Sub

The last line fails with " "Select" method of "Range" class failed." I then
changed it to
Worksheets("Sheet1").Range("A1").Activate
and got the same failure error. Why?

Ed