Duplicate all Macros?

[SteveC]

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

SteveC wrote:
> 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"

[SteveC]

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...

"SteveM" wrote:

> Steve,
>
> What don't you Save As to a new workbook and then delete the sheets you
> don't want in that workbook?
>
> SteveM
>
> SteveC wrote:
> > 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"
>
>