excel - 转至第一张未隐藏的工作表

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