Třeba takto. A je cesta. B je vytvářený adresář
Sub VytvorAdresar()
Dim A As String
Dim B As String
A = "C:\Users\JF\Desktop\wall\"
B = Range("A1")
If Len(Dir(A & B, vbDirectory)) = 0 Then
MkDir A & B
MsgBox "Adresář vytvořen."
Else: MsgBox "Adresář existuje."
End If
End Subcitovat
Sub VytvorAdresar()
Dim A As String
Dim B As String
A = "C:\Users\JF\Desktop\wall\"
B = Range("A1")
If Len(Dir(A & B, vbDirectory)) = 0 Then
MkDir A & B
MsgBox "Adresář vytvořen."
Else: MsgBox "Adresář existuje."
End If
End Subcitovat