VBA Save file to cell value month

Ik wil mijn files opslaan in een vaste map (Afgenomen audits) waar de blanco file staat en wanneer deze is ingevuld via een command button opslaan
in een submap. In de file dient men een datum (cell A2) in te vullen en wanneer deze in de maand Januari bijvoorbeeld valt wil ik (indien nog niet bestaat deze automatisch aanmaken) opslaan in de map "Januari" met de naam (Cell D9).

Dit is wat ik tot nu toe heb.

Private Sub CommandButton1_Click()
Dim ws As Worksheet, folder As String
Dim file As String
For Each ws In Worksheets
ws.Activate
ws.Name = Range("A2").Value


folder = ActiveWorkbook.Path & "\Afgenomen audits"
file = ws.Name & Format(Date, "mmmm") & ""
If Len(Dir(file, vbDirectory)) = 0 Then

MkDir file

End If
ActiveWorkbook.SaveAs filename:=folder & file & ws.Name & ".xlsm" & Cells(9, 4)
ActiveWorkbook.Close savechanges:=False

End Sub

Bedenk eens waar onderstaande tekens tussen moeten in de code.

Ik mis ook nog een Next.

Thx guys,
Het is gelukt met volgende:

Private Sub CommandButton1_Click()

Dim ws As String, folder As String
Dim Datum1 As String, Datum As String
Dim maand As Integer, Datum2 As String
Dim file As String

ws = Range("A2")
Datum = Range("B6")

folder = ActiveWorkbook.path & "\Afgenomen audits"
Datum1 = Format(Datum, "mmmm")
Datum2 = Format(Date, "dd-mm-yyyy")
file = ActiveWorkbook.path & "\Afgenomen audits" & "" & Datum1

If Dir(file, vbDirectory) = vbNullString Then
MkDir (file)
End If

ActiveWorkbook.SaveAs Filename:=folder & "" & Datum1 & "" & ws & " " & Datum2 & " " & Cells(9, 4) & ".xlsm"
ActiveWorkbook.Close savechanges:=False

End Sub