Hallo zusammen

Der beiliegende code Funktioniert soweit wie er muss. Nun möchte ich aber den Pfad in Zelle C1 eintragen. Die Ordner sollen in diesen Pfad abgelegt werden. Leider krieg ich das nicht hin. Könnt ihr mir da weiter helfen?

Sub x()
  Dim i As Integer
  Dim sPfad As String
      
  For i = 3 To 20
    sPfad = Cells(i, 1).Value & "" & Cells(i, 2).Value & "" & Cells(i, 3).Value
    If Cells(i, 1) <> "" Then MkDir "E:\05_Programmierung\VBA\Datei erstellen aus excel\" & sPfad
  Next

End Sub