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
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