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"