Oprettelse af mappestruktur

Benytter nedenstående lille kodning til at oprette mappestruktur, men der bliver ikke oprettet alle mapper. Der er 182 liner som skulle oprette mapper, men der oprettes kun 79 uanset hvordan jeg taster dem ind. Det er lidt tilfældigt hvad der bliver oprettet - det er ikke kun de sidste eller først der mangler ??

Sub Opret_Mappestruktur()

Application.ScreenUpdating = False

Rod = Range("K3").Text
If Right(Rod, 1) <> "\" Then
    Rod = Rod & Application.PathSeparator
    Range("K3") = Rod
End If

Raekker = ActiveSheet.UsedRange.Rows.Count
Kolonner = 6

Range("A2:A" & Raekker).Select

For Each Mappe In Selection.Cells
    On Error Resume Next
    If Mappe.Text = "" Then Exit Sub
    If Kolonner > 0 Then MkDir Rod
    If Kolonner >= 1 Then MkDir Rod & Mappe.Text
    If Kolonner >= 2 Then MkDir Rod & Mappe.Text & Application.PathSeparator & Mappe.Offset(0, 1).Text
    If Kolonner >= 3 Then MkDir Rod & Mappe.Text & Application.PathSeparator & Mappe.Offset(0, 1).Text & Application.PathSeparator & Mappe.Offset(0, 2).Text
    If Kolonner >= 4 Then MkDir Rod & Mappe.Text & Application.PathSeparator & Mappe.Offset(0, 1).Text & Application.PathSeparator & Mappe.Offset(0, 2).Text & Application.PathSeparator & Mappe.Offset(0, 3).Text
    If Kolonner >= 5 Then MkDir Rod & Mappe.Text & Application.PathSeparator & Mappe.Offset(0, 1).Text & Application.PathSeparator & Mappe.Offset(0, 2).Text & Application.PathSeparator & Mappe.Offset(0, 3).Text & Application.PathSeparator & Mappe.Offset(0, 4).Text
    If Kolonner >= 6 Then MkDir Rod & Mappe.Text & Application.PathSeparator & Mappe.Offset(0, 1).Text & Application.PathSeparator & Mappe.Offset(0, 2).Text & Application.PathSeparator & Mappe.Offset(0, 3).Text & Application.PathSeparator & Mappe.Offset(0, 4).Text & Application.PathSeparator & Mappe.Offset(0, 5).Text
Next Mappe

Range("A1").Select
MsgBox "Mapperne er oprettet :-)"

End Sub