co takhle
Application.DisplayAlerts = False
If Err.Number < 0 Then
otazka = MsgBox("Soubor BLABLA již existuje. Má se existující soubor nahradit?", vbYesNo)
If otazka = vbYes Then ActiveWorkbook.Save Else Exit Sub
End Ifcitovat
Application.DisplayAlerts = False
If Err.Number < 0 Then
otazka = MsgBox("Soubor BLABLA již existuje. Má se existující soubor nahradit?", vbYesNo)
If otazka = vbYes Then ActiveWorkbook.Save Else Exit Sub
End Ifcitovat