Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveAs Filename:=Worksheets("Sheet1").Range("A1").Value
End Sub
'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code
--
HTH
Bob Phillips
"AJM1949" wrote in message
...
I would like to auto save an excel workbook using a cell value as the file
name and save it in a specific folder ie My Documents\Quotes. I have been
unable to find an answer to this in previous responses. Any help would be
very much appreciated.
Thanks in advance
--
AJM1949
|