Something else to experiment with...
' Get folder name.
Dim myMonth As String: myMonth = MonthName(Month(Now))
Dim myfolder As String: myfolder = VBA.Environ("ALLUSERSPROFILE") & "\DeskTop\Test_It"
' Create folder if necessary.
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
If...