I found it:

Sub DirectoryExists()
FPath = Range("B2")
If Dir(FPath) = "" Then '.....If
Dir("C:\Users\Owner\Documents\ExcelF\") = "" Then
MsgBox "It does not exists"
Else
MsgBox "It is already there"
End If
End Sub


"Jan Nademlejnsky" wrote in message
...
I have macro which creates Subdirectories. I need to bypass MkDir command
if that folder already exists. How do you do that?

Thanks for your help.

Jan