Focus on current wb for quit

[wmtsub]

I wrote this to force exit without saving anything. Works fine if it is in the active workbook but when I move it to my Personal.xls it does not work. On the intended workbook.

Any ideas?


Sub Quit()
Application.DisplayAlerts = False
ThisWorkbook.Saved = True
Application.Quit
End Sub

 

[Yongle]

You answered your own question really ...

Try this

Sub Quit()
Application.DisplayAlerts = False
[COLOR=#ff0000]ActiveWorkbook[/COLOR].Saved = True
Application.Quit
End Sub

 

[mumps]

Instead of

ThisWorkbook

try using the full name of the workbook including extension, for example:

Workbooks("WorkbookName.xlsx").Saved =True

 

[wmtsub]

Yongle, TKS Should have known....
Mumps - That only works if the wb is constant.

thanks all

 

[Yongle]

Another option to try

Sub Quit()
  ActiveWorkbook.Close False
End Sub