"Bob Phillips" <phillips@tiscali.co.uk> wrote in message
news:#FaiKq4WFHA.3584@TK2MSFTNGP14.phx.gbl...
>
> Worksheets(Array("Sheet1", "Sheet2","Sheet3",
> "Sheet4","Sheet5","Sheet6","Sheet7")).Copy
> ans = inputbox("Name the new workbook"
> activeworkbook.SaveAs Filename:= "C:\myDir\" & ans & ".xls"
>
> --
> HTH
>
> Bob Phillips
>
> "LindaM" <LindaM@discussions.microsoft.com> wrote in message
> news:01247991-7EFA-49F2-A975-AE50CFC59F1A@microsoft.com...
> > Hi, I've looked for this but can't find it exactly.
> >
> > I need a macro to :
> > copy 7 specific sheets from one workbook (not the whole book) to a new
> book
> > ask the user for a name
> > save the new book as that name
> >
> > Thanks in advance
> > --
> > Linda M
>
>

Thanks!!
Had resorted to repeatedly calling a sub-subroutine to process a subgroup of
sheets until encountering your much more elegant, logical, and faster "With
Worksheets(array(...))...End With" solution.