Makro na ukončení aplikace

[mmmartin]

Lze doplnit makro

Kód: Vybrat vše

Sub makro1()
'
' makro1 Makro
'
Windows("Odměna_a.xls").Activate
    ActiveWorkbook.Close False
End Sub

tak, aby kromě zavření souboru bez uložení změn ještě taky ukončilo aplikaci EXCEL? Pokud ano, děkuji za doplnění. A děkuji i v případě, že odpověď zní NE.

[mike007]

Sub ukonceni_excelu()
Dim strClsExl As String
strClsExl = "TASKKILL /F /IM Excel.exe"
Shell strClsExl, vbHide
End Sub

nebo jednoduché Application.Quit

[mmmartin]

Děkuji!