Vba Code funktioniert nicht so richtig!

Sub Ordner_anlegen_Datei_darin_speicern()
Dim Ord As String
Dim Zusatz As String
Dim sFile As String, aktDir As String, Rueckfrage
Dim ErrControl As Integer
Dim iRow As Integer
Rueckfrage = MsgBox("Soll ein neuer Monat begonnen werden !! Wenn ja, dann wird der alte  _
Monat abgespeichert und die Daten für den Neuen Monat gelöscht?", vbYesNo, _
"Neuer Monat !")
If Rueckfrage = vbYes Then
'         [A1:C5].Interior.ColorIndex = 3
Else
Exit Sub
End If
'Range("A5:L93").Select
'   Selection.ClearContents
'Range("B5").Select
Ord = "E:\Ludger\Documents\Exel_Test\Stunden\" & Tabelle1.Range("B4").Value
If Dir(Ord, vbDirectory) = "" Then
MkDir Ord
ActiveWorkbook.SaveAs Filename:="E:\Ludger\Documents\Exel_Test\Stunden\" & Tabelle1.Range("B4" _
) & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
End Sub