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.

"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

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Joe K." <Joe K.@discussions.microsoft.com> wrote in message
news:8AA33B98-3A06-44B1-9E78-(E-Mail Removed)...
>
> 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

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

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
(E-Mail Removed)
"Joe K." <Joe K.@discussions.microsoft.com> wrote in message
news:3D4B1696-3DF0-4F8F-A70A-(E-Mail Removed)...
>
> 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