co takhle:
Sub Odeslat_ulozit_zavrit()
Application.Dialogs(xlDialogSendMail).Show "nekdo@nekde.cz", "Předmět"
Range("B4:H13").ClearContents
ActiveWorkbook.Close (True)
End Subcitovat
Sub Odeslat_ulozit_zavrit()
Application.Dialogs(xlDialogSendMail).Show "nekdo@nekde.cz", "Předmět"
Range("B4:H13").ClearContents
ActiveWorkbook.Close (True)
End Subcitovat