Guardar archivo con fecha (letra)

Lo que necesito es mi archivo la fecha guarde el mes con el nombre del mes y NO con el numero tenia pensado guardar la variable con el mes y luego convertirlo o no se otra forma más directa o fácil

Sub Macro4()
'
' Macro4 Macro
'

'
Dim NuevoRango As Range
Dim mm As Range
'
'
CeldaIni = "A2"
mm = Format(Now, "mm")
Range("A2:F2").Select
Range(Selection, Selection.End(xlDown)).Select
' ActiveWorkbook.Names.Add Name:="pendientes", RefersToR1C1:=
'"=Selection.Select"
Set NuevoRango = Range(CeldaIni).CurrentRegion
ActiveWorkbook.Names.Add Name:="Pendientes", RefersToR1C1:=NuevoRango

Active Workbook. SaveAs Filename:= _
"C:\Users\lfcerecedo\ Documents\pendientesmacro .xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

'al final de tu Rutina coloca esta instrucción:
Set NuevoRango = Nothing
Active Workbook.Names("pendientes").Delete
Active Workbook.SaveAs Filename:="C:\Users\lfcerecedo\Documents\" & Format(Now, "mm") & "nom" & Format(Now, "dd") & ".xlsm"
', FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub