Tabbladen vanuit excel exporteren naar een nieuwe excel-file via macro

[vbanewbie]

Hallo,

Ik heb een excel-sheet gemaakt bestaande uit een 20-tal tabbladen.
Deze file gebruik ik nu als zelfgemaakte database.
Ik heb hierin reeds een knop geïntegreerd om slechts enkele tabbladen af te drukken via een macro.
Nu had ik graag nog een 2de knop gehad waarmee ik enkele tabbladen kan exporteren naar een nieuwe excel file.

vb: indien ik slechts tabblad 5-7-8-13 nodig heb druk ik op exporteer, ik krijg een popup menu waar ik de tabbladen kan selecteren die ik nodig heb, en dan exporteer.
De gevraagde tabbaladen worden dan geopend in een nieuwe excel file.

Is dit mogelijk in Excel?

Indien iemand mij kan helpen, alvast bedankt!

 

[Warme bakkertje]

Maak een Userform met een Listbox en een CommandButton op.

Private Sub UserForm_Initialize()
For Each sh In Sheets
    c01 = c01 & "|" & sh.Name
Next
With ListBox1
    .ListStyle = fmListStyleOption
    .MultiSelect = fmMultiSelectMulti
    .List = Split(Mid(c01, 2), "|")
End With
End Sub

Private Sub CommandButton1_Click()
    ReDim shArray(x)
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                ReDim Preserve shArray(x)
                shArray(x) = .List(i)
                x = x + 1
            End If
        Next
    End With
    ThisWorkbook.Sheets(shArray).Copy
    Unload Me
End Sub