Select multiple Sheets based on Userform Listbox selections

[blaker]

I have a listbox in a userform, I have code to populate all the sheets in the workbook in the listbox, looking for code to select multiple sheets in the workbook based on the selected sheet names in the listbox.
The code I have so far will only select one of the sheets selected. see pic

here is the code I have:

Dim i As Integer, sht As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
sht = ListBox1.List(i)
End If
Next i
Sheets(sht).Activate

any help greatly appreciated!!

 

[GWteB]

How about

    Dim i As Integer, sht As String, arr() As String, n As Long
    
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ReDim Preserve arr(n)
            arr(n) = ListBox1.List(i)
            n = n + 1
        End If
    Next i
    Sheets(arr).Select

 

[blaker]

That works perfect!!
Thanks a ton!

 

[GWteB]

You are welcome and thanks for the feedback.