Macro voor het kopieren van meerdere bladen

[JustRelaxing]

Beste allemaal,

Ik ben op zoek naar een macro welke meerdere tabbladen van een document kopieert.

Ik werk met een excel document met ongeveer 10 tabbladen en wil hiervan 2 tabbladen automatisch kopieren naar een nieuwe werkmap omdat ik deze vaak gebruik. Wanneer ik dit nu ingesteld heb, kopieert hij eerst tabblad 1 in de nieuwe werkmap, vervolgens kopieert hij tabblad 2 in dezelfde werkmap. Oftewel hij kopieert blad 2 over 1 heen.

Wat ik graag zou willen is dat dat beide tabbladen in de nieuwe werkmap komt.

De macro die ik nu gebruik ziet er als volgt uit:

Sub Kopieren()
'
' Kopieren Macro
'

'
Range("A1:O2457").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Sheets("Blad2").Select
Windows("Performance Monitoring.xlsm").Activate
Sheets("PM Database").Select
Range("A1:U250").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Map12").Activate
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Range("C14").Select
Sheets("Blad1").Select
Sheets("Blad1").Name = "PM template"
Sheets("Blad2").Select
Sheets("Blad2").Name = "PM database"
Sheets("Blad3").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End Sub

Alvast bedankt voor de moeite,
Pim