Sub test()
MsgBox CreatRep(Environ("UserProfile") & "\Desktop\" & Format(Date, "mm-Mmmm"))
End Sub
Function CreatRep(Rep As String) As Boolean
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
If Not Fso.FolderExists(Rep) Then
Fso.CreateFolder Rep
CreatRep = True
End If
End Function