Excel záloha

Ahoj, našel by se někdo kdo by mi poradil s excelem ?
Mám v excelu sešit s buňkami kam zapisuji data na disku (D:) a potřeboval bych si udělat zálohu na jiném disku (F:) , když dám v excelu uložit aby se to uložilo i v záloze.
Nechci žádný cloud, chci to mít pěkně na disku.
Něco jsem našel ale nějak nefunguje, nebo tedy aspoň jednou a pak už nic. :
__________________________________________________________________
Makro je potřeba nakopírovat do VBA v sešitu, pro který chceš vytvářet zálohy.
1) Alt+F11
2) V levém panelu najdeš ThisWorkBook. Dvojklikem ho otevři.
3) Do prázdného okna vpravo nakopíruj makro.
Option Explicit
Private Sub Workbook_Open()
If MsgBox("Vytvořit zálohu?", vbYesNo, "Záloha") <> vbYes Then Exit Sub
Dim Cil$, Extension$
Cil = Mojecesta("C:\")
Extension = Left(ThisWorkbook.Name, Len _
(ThisWorkbook.Name) - 4) & " Záloha"
On Error Resume Next
MkDir Cil & Extension
ActiveWorkbook.SaveCopyAs Filename:=Cil & _
Extension & "\" & Extension & _
(Format(Now, " mmm d yyyy, hh.mm.ss AMPM")) & ".xls"
End Sub
Public Function Mojecesta$(Folder)
Mojecesta = CreateObject("WScript.Shell").SpecialFolders _
(Folder) & Application.PathSeparator
End Function