Assume you have Workbook_Open code you show in the ThisWorkbook module and
you have a sheet named Sheet1 in that workbook, then you might try the
following:

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

--
Regards,
Tom Ogilvy

"Steve" wrote in message
...
Can anyone tell me why this isn't working?

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