YOU could have recorded this macro while doing a manual copy to new book and
saving it.
Modify to suit.
Sub Macro6()
'
' Macro6 Macro
' Macro recorded 7/30/2009 by Donald B. Guillett
'
'
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:="C:\yourfolderl\yourfilename.xls",
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Ali" wrote in message
...
I want to em each worksheet seperately and be able to save each worksheet
seperately?
Thanks in advance :)