Automatic Open Created Spreadsheet

  • Thread starter Thread starter Joe K.
  • Start date Start date
J

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
 
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.
 
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
 
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
 
Back
Top