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" wrote in message
...
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