If Dir(mypath) = "" Then
MkDir mypath
Else
MsgBox "Folder already Exists"
Exit Sub
End If

--
Regards,
Tom Ogilvy


"Jeff" wrote in message
...
My Code below is attempting to check if a folder exists and if so exit the
sub. Can anyone point me in the right direction

mypath = "e:\Temp\" & Actuals

If Dir(mypath) < "" Then
MkDir mypath
Else
MsgBox "Folder already Exists"
Exit Sub
End If

For i = lb To ub
mypath = "e:\Temp\" & Actuals & Arr1(i)
If Dir(mypath) = "" Then
MkDir mypath
End If
Next i