Mappen maken door vba van een bereik

[Senso]

In bereik A1 A15 staan namen. Nu wil ik in E:\test\ deze omgezet hebben naar mappen.

Sub MakeFolders()

Dim Rng As Range

Dim maxRows, maxCols, r, c As Integer

Set Rng = Selection

maxRows = Rng.Rows.Count

maxCols = Rng.Columns.Count

For c = 1 To maxCols

r = 1

Do While r <= maxRows

If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then

MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))

On Error Resume Next

End If

r = r + 1

Loop

Next c

End Sub

Deze gevonden maar ik zie geen pad. Zal er wel staan maar ik kan dat niet "vertalen". Hoe moet die regel zijn? Bereik moet je selecteren?

 

[HSV]

Hier is je pad.

ActiveWorkbook.Path

 

[Senso]

MkDir (ActiveWorkbook.Path & "" & Rng(r, c))

moet die regel dan worden:

MkDir (E:\test\ & "" & Rng(r, c))

 

[HSV]

MkDir "E:\test\"& rng(r,c)

 

[Senso]

Bedankt.:thumb: