Check for folder; create if it does not exist

[Anne Troy]

Why not just use Dir?

Sub TestForDir()
Dim strDir As String
    strDir = "C:\My Documents\TestDir\"
    
    If Dir(strDir, vbDirectory) = "" Then
        MkDir strDir
    Else
        MsgBox "Directory exists."
    End If
End Sub

Beautiful, Norie. As usual.