meerdere tabbladen kopieren naar nieuwe sheet

[rthoonsen]

Beste excelgebruikers,

Ik probeer vanuit een master excelbestand een aantal tabbladen te kopieren naar een nieuw excelbestand.
Ik moet hiervoor elke week een update draaien, om 1 tabblad te kopieren naar een nieuw bestand lukt maar wanneer ik er meerdere wil selecteren lukt het niet
wat gaat hier niet goed of fout?

Sub tabblad()
Application.ScreenUpdating = False
Sheets("sheet-1").Copy
Sheets("sheet-2").Copy
Sheets("sheet-3").Copy
With ActiveWorkbook
.SaveAs "c:\Temp\Documents\test1.xlsx"
.Close 0
End With
End Sub

 

[jkpieterse]

Door een beperking in Excel kan je tabs met een tabel (Opmaken als tabel) erop alleen één voor één kopieren. Dom, maar helaas waar.

 

[VenA]

Zonder tabellen kan het nog wel.

Sheets(Array("Sheet-1", "Sheet-2", "Sheet-3")).Copy

 

[rthoonsen]

Ah Super, ja dat werkt inderdaad helemaal top dank je wel.