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).
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
NWB.SaveAs FileName:=dPath & NewName + ".xls"
Application.ScreenUpdating = True
[ This Message was edited by: Ekim on 2002-11-01 19:49 ]