A dále řádek 4, který ověří že aktuálně otevřený sešit je opravdu ten "vypocet zaloha.xlsm"
Kód: Vybrat vše
Sub ulozit()
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:="C:\Dokumenty\vypocet zaloha.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'řádek 3: If "vypocet.xlsm byl uložen" Then MsgBox "Sesit byl uložen"
'řádek 4: If "aktuální sešit má název "vypocet zaloha.xlsm"" Then Call davka1
End Sub