Always Open with First Visible Sheet Selected

[alyssa75]

So I know how to always open to a specific sheet.

The following in ThisWorkbook:
Sub Workbook_Open()
Worksheets("Summary").Activate
Range("A1").Activate
End Sub

But - I want to change this to open to the first visible worksheet instead. In case this sheet gets renamed or deleted.


Thoughts?

Thanks!!!

 

[tweedle]

try...

Private Sub Workbook_Open()
For shtidx = 1 To Sheets.Count
If Sheets(shtidx).Visible Then
    Sheets(shtidx).Select
    Exit For
End If
Next shtidx
End Sub

 

[alyssa75]

Yeah! Worked perfectly. Thanks!