Duplicate all Macros?

[Guest]

This is part of a macro that duplicates sheets into a new workbook and lets
me save them someplace else... only problem, it leaves behind all macros....
how do I take all macros from the original workbook and duplicate them into
the new workbook? thanks a lot!

Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5",
"Sheet6")).Select
Sheets("Sheet5").Activate
Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5",
"Sheet6")).Copy
Range("A34").Select
Selection.Copy
Application.CutCopyMode = False
ChDir " U:\Folder1\Folder2\Folder3"
Application.Dialogs(xlDialogSaveAs).Show "U:\Folder1\Folder2\Folder3"

 

[SteveM]

Steve,

What don't you Save As to a new workbook and then delete the sheets you
don't want in that workbook?

SteveM

 

[Guest]

I wanted to avoid that because all these sheets come from one large workbook,
and the macro pulls out only the sheets I need --> this is faster than doing
multiple Save As commands... but i will try to come up with a way to do
this... thanks for the suggestion...