Create a folder if it doesn't exist

Sub CreateFolder()

Dim fso

Dim fol As String

fol = "c:\MyFolder" ' change to match the folder path

Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FolderExists(fol) Then

fso.CreateFolder (fol)

Else

MsgBox fol & " already exists!", vbExclamation, "Folder Exists"

End If

End Sub