Close a Workbook within a macro How?

[eddy]

In the following code example
I am saving a workbook in directory Q:NEWQUOTESYSTEMQUOTES then taking information from three cells to produce the filename. As it stands the workbook is saved OK but then remains open even though I have opened another workbook in the macro. I want to save the workbook and then close the workbook ignoring any save as prompts etc.
Thanks Ted


Sub CopySheetSave()
'
' CopySheetSave Macro
' Macro recorded 03/03/2002 by Ted Pratt
'
'Save the quote
ActiveWorkbook.SaveAs Filename:="Q:NEWQUOTESYSTEMQUOTES" & Range("H1").Value & Range("I1").Value & Range("J1").Value

'This is where I want to close the above workbook


'After the save open mster sheet
Workbooks.Open Filename:="Q:NEWQUOTESYSTEMMasterQuoteSheet2.xls"

End Sub

 

[Jay Petrulis]

On 2002-04-23 13:20, eddy wrote:
In the following code example
I am saving a workbook in directory Q:NEWQUOTESYSTEMQUOTES then taking information from three cells to produce the filename. As it stands the workbook is saved OK but then remains open even though I have opened another workbook in the macro. I want to save the workbook and then close the workbook ignoring any save as prompts etc.
Thanks Ted


Sub CopySheetSave()
'
' CopySheetSave Macro
' Macro recorded 03/03/2002 by Ted Pratt
'
'Save the quote
ActiveWorkbook.SaveAs Filename:="Q:NEWQUOTESYSTEMQUOTES" & Range("H1").Value & Range("I1").Value & Range("J1").Value

'This is where I want to close the above workbook


'After the save open mster sheet
Workbooks.Open Filename:="Q:NEWQUOTESYSTEMMasterQuoteSheet2.xls"

End Sub

Either put

ActiveWorkbook.Close

where you indicated it should go.

Or change the line

ActiveWorkbook.SaveAs Filename:="Q:NEWQUOTESYSTEMQUOTES" & Range("H1").Value & Range("I1").Value & Range("J1").Value

to

ActiveWorkbook.Close SaveChanges:=True, Filename:="Q:NEWQUOTESYSTEMQUOTES" & Range("H1").Value & Range("I1").Value & Range("J1").Value


HTH,
Jay

 

[eddy]

Works fine.
Thanks Jay