Below is a small sub that checks if a folder exists, if not then it will create it:
Sub MakeMyFolder()
Dim fPath As String
fPath = "C:\Users\JoeBloggs\Desktop\TEST\George"
If Dir(fPath, vbDirectory) = "" Then
MkDir Path:=fPath
MsgBox "Done"
Else
MsgBox "found it"
End If
End Sub
Or another option:
Sub MakeMyFolder2()
Dim fPath As String
Dim fsoFSO
fPath = "C:\Users\clarkg\Desktop\TEST\George"
Set fsoFSO = CreateObject("Scripting.FileSystemObject")
If fsoFSO.FolderExists(fPath) Then
MsgBox "found it"
Else
fsoFSO.CreateFolder (fPath)
MsgBox "Done"
End If
End Sub