M
mudraker
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
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