Workbook_Open Issues

[Pavertheway]

Hi,

I want to run two operations through the Workbook_Open string at the same time but can't get it to work correctly.

I currently have;

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
Sheets("START").Visible = xlVeryHidden
Application.EnableEvents = True
End Sub

Which works exactly how I want it to, except it can still open on the sheet the workbook was saved on.
I usually use:

Private Sub Workbook_Open()
Sheets("Sheet1").Select
Range("A1").Select
End Sub

To get a workbook to open on a specific sheet but I cannot seem to get them to work together - is there something I am missing/doing wrong?

Thanks in advance!

 

[RoryA]

Have you tried just adding:

Sheets("Sheet1").Select
Range("A1").Select

to the end of the first routine, before the End Sub?

 

[Pavertheway]

That worked like a charm.

Thanks!

 

[RoryA]

Glad to help.