Speichern im Unterordner

C:\sicherung\sep\Backup 19-09-02.xls

anlegen.
Das Makro läuft, speichert aber nicht im Unterorder.
Wo ist der Haken?
Gruss UWE

Sub DateiUnter_TagesdatumAbspeichern()
Dim strGeneralDir As String
Dim strMonthDir As String
Dim strPath$

strDate = Format(Now, "dd.mm.yy")
strGeneralDir = "c:\sicherung\"

'prüfen ob Verzeichnis vorhanden
On Error Resume Next
MkDir (strGeneralDir)

strMonthDir = Format(Now, "mmm")
strPath = strGeneralDir & strMonthDir

'prüfen ob Verzeichnis vorhanden
On Error Resume Next
MkDir (strPath)

tagesdatum = Application.Text(Now(), "mm-dd-yy hh-mm")
Sicherung = strPath & "Backup" & tagesdatum & ".XLS"
ActiveWorkbook.SaveCopyAs Sicherung

End Sub