Crear carpeta con macros y le coloque el mes

Prueba este código, me toco adicionarle una función para que los meses salieran en español y no en ingles, como es por defecto.
Sub crear()
Set fso = CreateObject("Scripting.FileSystemObject")
ruta = "C:\"
w = ruta & mes(Month(Date))
If Not fso.FolderExists(w) Then
    fso.CreateFolder (w)
End If
Set fso = Nothing
AbrirCarpeta (w)
End Sub
Private Function AbrirCarpeta(carpeta As String)
Call Shell("explorer.exe " & carpeta, vbNormalFocus)
End Function
Private Function mes(m As Integer) As String
    Select Case m
        Case Is = 1
            mes = "Enero"
        Case Is = 2
            mes = "Febrero"
        Case Is = 3
            mes = "Marzo"
        Case Is = 4
            mes = "Abril"
        Case Is = 5
            mes = "Mayo"
        Case Is = 6
            mes = "Junio"
        Case Is = 7
            mes = "Julio"
        Case Is = 8
            mes = "Agosto"
        Case Is = 9
            mes = "Septiembre"
        Case Is = 10
            mes = "Octubre"
        Case Is = 11
            mes = "Noviembre"
        Case Is = 12
            mes = "Diciembre"
        Case Else
            mes = ""
    End Select
End Function