Automatic Open Created Spreadsheet

[Joe K.]

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

 

[Joel]

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.

 

[Don Guillett]

Sub saveitas()
ActiveWorkbook.saveas Filename:="don"
End Sub

 

[Joe K.]

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

 

[Don Guillett]

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