Makro na ukončeni excelu bez uložení

[luko02420]

Dobrý den, prosím o radu. Potřeboval bych makro na ukončení excelu bez uložení a aby mi nenaskakoval dotaz jestli chi uložit změny.
Našel jsem tyto dva kody ale nějak to mauzu rozchodit.
Děkuji za pomoc

Kód: Vybrat vše

Sub Makro1()
  
  For Each w In Application.Workbooks
    w.Save
    Next w
    Application.Quit
End Sub
Sub ExitWithoutPrompt()

Application.DisplayAlerts = True
Application.Quit
End Sub