sounds like your entry in fname does not include a full path


You need to include full path or change to the drive & folder where the
sub folder is to be created


My formula entered into cell named fName
="c:\Temp\"&TEXT(TODAY(),"yy-mm-dd")


Sub MakeDir()
Dim fPath As String

' may need place change directory code here

fPath$ = Range("fName").Value
If Dir(fPath, vbDirectory) = "" Then
MkDir (fPath)
End If
End Sub


---
Message posted from http://www.ExcelForum.com/