Thema: Blattauswahl mit Mehrfachauswahl

• Variablendeklaration
• Schleife über alle Elemente der ListBox bilden
• Wenn das aktuelle Element ausgewählt ist...
• Array-Zähler um eins hochzählen
• Array neu dimensionieren
• Listeneintrag in das Array einlesen
• Wenn eine Auswahl getätigt wurde...
• Die Auswahl selektieren

Private Sub cmdWeiter_Click()
   Dim iCounter As Integer
   Dim arr() As String
   Dim iItems As Integer
   For iCounter = 0 To lstSheets.ListCount - 1
      If lstSheets.Selected(iCounter) Then
         iItems = iItems + 1
         ReDim Preserve arr(1 To iItems)
         arr(iItems) = lstSheets.List(iCounter)
      End If
   Next iCounter
   If iItems > 0 Then
      Worksheets(arr).Select
   End If
   Unload Me
End Sub