我有个选择。

Sub SelectWS()
    
    Dim WS As Worksheet
    Dim I As Long
    Dim N As Long
    Dim Fnd As Boolean
    Dim Vis As Boolean
    
    N = 0
    For Each WS In ThisWorkbook.Worksheets
    
        Vis = (WS.Visible = xlSheetVisible)
        If Vis = False Then N = N + 1
        
        If WS.Name <> "Overview" And WS.Name <> "Index" And Vis Then
            Fnd = True
            If ActiveSheet.Name = "Overview" Or ActiveSheet.Name = "Index" Then
                WS.Activate
                WS.Select
            Else
                WS.Select (False)
            End If
        End If
    Next WS
    
    If Not Fnd Then
        MsgBox "No suitable WS found.", vbInformation + vbOKOnly, "Error:"
    ElseIf N > 0 Then
        MsgBox "Found " & N & " hidden Worksheet(s) - not selectable.", vbInformation + vbOKOnly, "Notice:"
    End If
    
End Sub

试试这个：

Sub Macro1()
    Dim iSel As Long, ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        If IsError(Application.Match(ws.Name, _
                   Array("Overview", "Index"), 0)) Then
            ws.Select Replace:=(iSel = 0) 'only Replace for first-selected sheet 
            iSel = iSel + 1 'increment selected sheet count
        End If
    Next ws
End Sub

（假设没有隐藏图纸）