Kopieren der Tabellenblätter

ich möchte die Tabelleblätter in einer Arbeitsmappe in eine neue kopieren, jedoch nicht Workbook.Copy benutzen. Wer kann mir einen Hinweis geben:

Meine Versuche sehe so aus:

set tab1 = activeworkbook
set tab2 = workbooks.add

for x = 1 to tab1.sheets.count
tab1.sheets(x) = tab2.sheets(x)
next

tab2.name = tab1.name & kopie

danke

Matthias