您应该将代码更改为仅列出 visible 表，以防止尝试选择隐藏工作表时出错。

Private Sub UserForm_Initialize()

    Dim ws As Worksheet
  
    For Each ws In Worksheets
        If ws.Visible = xlSheetVisible Then ListBox1.AddItem ws.Name
    Next
    
    ListBox1.MultiSelect = fmMultiSelectMulti
    
End Sub

字符串
下面假设您的按钮名为DONE。您可能需要更改它。

Private Sub Done_Click()

    Dim arrSheetlist()

    X = 1
    For i = 0 To ListBox1.ListCount - 1
       If ListBox1.Selected(i) = True Then
            ReDim Preserve arrSheetlist(1 To X)
            arrSheetlist(X) = ListBox1.List(i)
            X = X + 1
       End If
    Next i
   
    If X > 1 Then Worksheets(arrSheetlist).Select
  
End Sub

型