Перейти на первый лист не спрятан

Question

Работа над макросом, который пойдет на первый лист. Я использовал:

Sub GoToFirstSheet()

    On Error Resume Next
    Sheets(1).Select

End Sub

Однако, если лист 1 скрыт, это не сработает. Как включить способ перехода на первый лист, который не скрыт?

Answer 1

Как то так?

Option Explicit

Sub GoToFirstSheet()
    Dim i As Long

    For i = 1 To ThisWorkbook.Sheets.Count
        On Error Resume Next
        Sheets(i).Activate
        If Err.Number = 0 Then Exit For
    Next i
End Sub

Answer 2

Это должно сделать это:

Option Explicit
Sub GoToFirstSheet()

    Dim ws As Worksheet 'declare a worksheet variable
    'loop through all the worksheets in the workbook
    For Each ws In ThisWorkbook.Worksheets
        'If the sheet is not hidden
        If ws.Visible = xlSheetVisible Then
            ws.Select 'select it
            Exit For 'exit the loop
        End If
    Next ws

End Sub