Sub saveas()
old = ActiveWorkbook.Name
'MsgBox old
ActiveWorkbook.Save
ActiveWorkbook.saveas Filename:="don"
For Each w In Application.Workbooks
If w.Name = old Then
w.Close
Exit Sub
End If
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Joe K." <Joe wrote in message
...

Please help me create a script to open the new spreadsheet
(MATERIAL_SHIIPPING_ORDERS), save and close my current spreadsheet.

Listed below is the script to create the new spreadsheet.

Thank so much for the help.

With ActiveSheet
.Parent.SaveAs Filename:=ActWkbk.Path & "\" &
"MATERIAL_SHIIPPING_ORDERS_.xls"
End With


"Joel" wrote:

What you are asking for cannot be accomplished. The macro that runs the
code
is in the activeworkbook will stop running if you close the workbook.

You may need to do 1 of 3 tings
1) Don't close the active wrokbook
2) Use a 3rd workbook with a macro that runs you r code
3) Put the macro in a Personal.xls file.

"Joe K." wrote:


Please help me create a script to save and close my current spreadsheet
and
open
the new spreadsheet (MATERIAL_SHIIPPING_ORDERS).

Listed below is the script to create the new spreadsheet.

Thank so much for the help.

With ActiveSheet
.Parent.SaveAs Filename:=ActWkbk.Path & "\" &
"MATERIAL_SHIIPPING_ORDERS_.xls"
End With