I have the following code which works fine except that the save dialog box
pops up.
Having already saved the workbook I do not want the save box to display -
how do I prevent it?

Private Sub xxxxx()
'stuff
ThisWorkbook.Save
Application.Quit
End Sub

TIA
Sandy

It should not display another message. Have you got other workbooks open than
the one you are programmatically saving ?
You can stop the message by putting this before your quit statement

Application.DisplayAlerts = False

"Sandy" wrote:

> I have the following code which works fine except that the save dialog box
> pops up.
> Having already saved the workbook I do not want the save box to display -
> how do I prevent it?
>
> Private Sub xxxxx()
> 'stuff
> ThisWorkbook.Save
> Application.Quit
> End Sub
>
> TIA
> Sandy
>
>

Hi Dennis
There were no other books open; I was however doing a 'SaveAs' which was in
the code prior to 'ThisWorkbook.Save' so I suppose that might have had a
bearing - your suggestion works perfectly though.
Thank you.
Sandy

"Dennis" <(E-Mail Removed)> wrote in message
news:0FA6800B-3F60-4738-B2DA-(E-Mail Removed)...
> It should not display another message. Have you got other workbooks open
> than
> the one you are programmatically saving ?
> You can stop the message by putting this before your quit statement
>
> Application.DisplayAlerts = False
>
> "Sandy" wrote:
>
>> I have the following code which works fine except that the save dialog
>> box
>> pops up.
>> Having already saved the workbook I do not want the save box to display -
>> how do I prevent it?
>>
>> Private Sub xxxxx()
>> 'stuff
>> ThisWorkbook.Save
>> Application.Quit
>> End Sub
>>
>> TIA
>> Sandy
>>
>>

hi
be sure to turn alerts back on before you exit the sub.
Application.displayalerts = true

Regards
FSt1

"Sandy" wrote:

> Hi Dennis
> There were no other books open; I was however doing a 'SaveAs' which was in
> the code prior to 'ThisWorkbook.Save' so I suppose that might have had a
> bearing - your suggestion works perfectly though.
> Thank you.
> Sandy
>
> "Dennis" <(E-Mail Removed)> wrote in message
> news:0FA6800B-3F60-4738-B2DA-(E-Mail Removed)...
> > It should not display another message. Have you got other workbooks open
> > than
> > the one you are programmatically saving ?
> > You can stop the message by putting this before your quit statement
> >
> > Application.DisplayAlerts = False
> >
> > "Sandy" wrote:
> >
> >> I have the following code which works fine except that the save dialog
> >> box
> >> pops up.
> >> Having already saved the workbook I do not want the save box to display -
> >> how do I prevent it?
> >>
> >> Private Sub xxxxx()
> >> 'stuff
> >> ThisWorkbook.Save
> >> Application.Quit
> >> End Sub
> >>
> >> TIA
> >> Sandy
> >>
> >>

Good point!
Thanks
Sandy

"FSt1" <(E-Mail Removed)> wrote in message
news:373CA7AB-5F23-4808-A5C1-(E-Mail Removed)...
> hi
> be sure to turn alerts back on before you exit the sub.
> Application.displayalerts = true
>
> Regards
> FSt1
>
> "Sandy" wrote:
>
>> Hi Dennis
>> There were no other books open; I was however doing a 'SaveAs' which was
>> in
>> the code prior to 'ThisWorkbook.Save' so I suppose that might have had a
>> bearing - your suggestion works perfectly though.
>> Thank you.
>> Sandy
>>
>> "Dennis" <(E-Mail Removed)> wrote in message
>> news:0FA6800B-3F60-4738-B2DA-(E-Mail Removed)...
>> > It should not display another message. Have you got other workbooks
>> > open
>> > than
>> > the one you are programmatically saving ?
>> > You can stop the message by putting this before your quit statement
>> >
>> > Application.DisplayAlerts = False
>> >
>> > "Sandy" wrote:
>> >
>> >> I have the following code which works fine except that the save dialog
>> >> box
>> >> pops up.
>> >> Having already saved the workbook I do not want the save box to
>> >> display -
>> >> how do I prevent it?
>> >>
>> >> Private Sub xxxxx()
>> >> 'stuff
>> >> ThisWorkbook.Save
>> >> Application.Quit
>> >> End Sub
>> >>
>> >> TIA
>> >> Sandy
>> >>
>> >>

Does this actually matter in this case because the next statement was
quitting the app ?
Won't they automatically be back on next time Excel is loaded ?

"FSt1" wrote:

> hi
> be sure to turn alerts back on before you exit the sub.
> Application.displayalerts = true
>
> Regards
> FSt1
>
> "Sandy" wrote:
>
> > Hi Dennis
> > There were no other books open; I was however doing a 'SaveAs' which was in
> > the code prior to 'ThisWorkbook.Save' so I suppose that might have had a
> > bearing - your suggestion works perfectly though.
> > Thank you.
> > Sandy
> >
> > "Dennis" <(E-Mail Removed)> wrote in message
> > news:0FA6800B-3F60-4738-B2DA-(E-Mail Removed)...
> > > It should not display another message. Have you got other workbooks open
> > > than
> > > the one you are programmatically saving ?
> > > You can stop the message by putting this before your quit statement
> > >
> > > Application.DisplayAlerts = False
> > >
> > > "Sandy" wrote:
> > >
> > >> I have the following code which works fine except that the save dialog
> > >> box
> > >> pops up.
> > >> Having already saved the workbook I do not want the save box to display -
> > >> how do I prevent it?
> > >>
> > >> Private Sub xxxxx()
> > >> 'stuff
> > >> ThisWorkbook.Save
> > >> Application.Quit
> > >> End Sub
> > >>
> > >> TIA
> > >> Sandy
> > >>
> > >>

hi
maybe not. but it's been my experience that the two commands always be used
togeather regardless ie just get in the habit of turning alerts back on just
in case.

Regards
FSt1

"Dennis" wrote:

> Does this actually matter in this case because the next statement was
> quitting the app ?
> Won't they automatically be back on next time Excel is loaded ?
>
> "FSt1" wrote:
>
> > hi
> > be sure to turn alerts back on before you exit the sub.
> > Application.displayalerts = true
> >
> > Regards
> > FSt1
> >
> > "Sandy" wrote:
> >
> > > Hi Dennis
> > > There were no other books open; I was however doing a 'SaveAs' which was in
> > > the code prior to 'ThisWorkbook.Save' so I suppose that might have had a
> > > bearing - your suggestion works perfectly though.
> > > Thank you.
> > > Sandy
> > >
> > > "Dennis" <(E-Mail Removed)> wrote in message
> > > news:0FA6800B-3F60-4738-B2DA-(E-Mail Removed)...
> > > > It should not display another message. Have you got other workbooks open
> > > > than
> > > > the one you are programmatically saving ?
> > > > You can stop the message by putting this before your quit statement
> > > >
> > > > Application.DisplayAlerts = False
> > > >
> > > > "Sandy" wrote:
> > > >
> > > >> I have the following code which works fine except that the save dialog
> > > >> box
> > > >> pops up.
> > > >> Having already saved the workbook I do not want the save box to display -
> > > >> how do I prevent it?
> > > >>
> > > >> Private Sub xxxxx()
> > > >> 'stuff
> > > >> ThisWorkbook.Save
> > > >> Application.Quit
> > > >> End Sub
> > > >>
> > > >> TIA
> > > >> Sandy
> > > >>
> > > >>