Evo prepravke i za ovaj kod.
[code]
Sub NapraviFoldere()
Dim Cell As Range
MyFolder = "C:\Temp\"
For Each Cell In Selection
If Dir(MyFolder & Cell &""& Cell.Offset(0, 1), vbDirectory) = "" Then
MkDir MyFolder & Cell &""& Cell.Offset(0, 1)
End If
Next Cell
End Sub
[/code]
↧