Put the following macro in a standard module.
The macro saves sheet2 and sheet4 to the C:My DocumentsTemp directory. Change to suit (add more lines to the macro if you wish to save more sheets).<pre>
Sub CopySheets()
Dim NWB As Workbook ' New Workbook
Dim NewName As String
Dim OWB As Workbook ' Old WorkBook
Dim dPath As String
dPath = "C:My DocumentsTemp" 'Change to suit
Application.ScreenUpdating = False
NewName = ""
NewName = InputBox("Enter New Book Name without .xls")
Set OWB = ActiveWorkbook
Set NWB = Workbooks.Add
OWB.Sheets("Sheet2").Copy NWB.Sheets(1)
OWB.Sheets("Sheet4").Copy NWB.Sheets(1)
NWB.SaveAs FileName:=dPath & NewName + ".xls"
Application.ScreenUpdating = True
End Sub</pre>
HTH
Mike
This message was edited by Ekim on 2002-11-01 19:49