Save, then close

[daniels012]

I have code now to save and copy a file based on info on my form.
It stays open as well as opens


Sub Print_And_Save()
'
' Print_And_Save Macro
' Prints Proposal, saves proposal, then saves as to Completed Proposals folder.
ActiveWorkbook.Save
Path = "C:\WINDOWS\Personal\Completed Proposals\"
Path2 = "C:\WINDOWS\Personal\Surface Systems\"
ActiveWorkbook.SaveAs Filename:= _
Path & "Proposal" & _
Str(Application.Range("N2").Value), FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Range("F2").Select
Workbooks.Open Filename:=Path2 & "Proposal for XL.xls"
End Sub

What do I need to do (and where) to close the workbook I just created? I really want to Save As and Close!
I want to leave the "Proposal for XL" file open ready do work in.

Thank You,
Michael

 

[martinee]

I'm not sure, but would:

ThisWorkbook.Close

Work if you put it just before the end sub?

 

[daniels012]

I'll try, but I don't think so because I just opened "Proposal for XL"??

Michael

 

[daniels012]

Is there code to SaveAs and Close all at once??

Thank You,
Michael

 

[martinee]

When you reference "ThisWorkbook", it will always refer to the workbook containing the code. I'm assuming (since you just opened it) that "Proposal for XL" is not the file containing this code. Hopefully it works, but if not, post back and let us know. HTH.

 

[daniels012]

Thank You for resonding so quickly!

Actually, "Proposal for XL" is where I have the code. I have a button at the top which creates the new file based on it.

Michael

 

[daniels012]

I am not sure where to sneek it in?? Any ideas out there?



Michael

 

[daniels012]

This one has me totally confused? I don't know where to close the one form and open the other?

Michael :x

 

[erik.van.geit]

Michael,

Your initial question was

What do I need to do (and where) to close the workbook I just created? I really want to Save As and Close!

If you create a workbook (saveas) as a matter of fact it becomes the activeworkbook

So the line after SaveAs ... you need
ActiveWorkbook.Close

does this help?
Erik

 

[daniels012]

Well, I have tried that. It doesn't work. I am not real sure why?