copy meerdere sheets naar andere locatie

[drubbus]

Ik heb een userform waarbij ik de mogelijkheid geef om 1 sheet naar een andere locatie te kopieeren vanuit een bron bestand
Nu moeten dat 2 sheets worden maar ik heb ff geen idee hoe ik dat nu weg schrijf
Mijn pogingen geven alleen maar fouten

mijn code voor 1 sheet is de volgende

 Private Sub CommandButton2_Click()
Application.ScreenUpdating = True
    Sheets(2).Copy
    For Each shp In ActiveWorkbook.Sheets(1).Shapes
        shp.Delete
    Next shp
    Application.ScreenUpdating = True
    ActiveWorkbook.SaveCopyAs "H:\schijf\locatie\map\rooster medewerkers\Rooster.xls"

End Sub

 

[drubbus]

Nietlanger meer van toepassing maar ik blijf geinterseerd!