Auto Save on closing

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

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" <[email protected]> wrote in message
news:[email protected]...
> 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

Hello Bob
Many thanks for the code. How can I specify the path to save the workbook
to-in this instance I want it to be My Documents\Quotes.
--
AJM1949


"Bob Phillips" wrote:

> 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" <[email protected]> wrote in message
> news:[email protected]...
> > 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
>
>
>

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveAs Filename:= "C:\My Doc umtnets\Quotes\" & _
Worksheets("Sheet1").Range("A1").Value
End Sub

--
HTH

Bob Phillips

"AJM1949" <[email protected]> wrote in message
news:[email protected]...
> Hello Bob
> Many thanks for the code. How can I specify the path to save the workbook
> to-in this instance I want it to be My Documents\Quotes.
> --
> AJM1949
>
>
> "Bob Phillips" wrote:
>
> > 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" <[email protected]> wrote in message
> > news:[email protected]...
> > > 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
> >
> >
> >