There shouldn't be anything wrong with this code unless you have renamed
Sheet1 to some other name e.g. "NewName". If so you will have to change it
as follows:

Private Sub Workbook_Open()
Worksheets("NewName").Activate
End Sub

Regards,

Alasdair Stirling
"Steve" wrote:

Can anyone tell me why this isn't working?

Private Sub Workbook_Open()
Worksheets("Sheet1").Activate
End Sub