automatisch aangemaakte map aanpassen

Ik heb een excel formulier gemaakt. Als ik middels een knop het werkblad opsla wordt er gelijktijdig een map aangemaakt waarvan de naam wordt samengesteld met enkele gegevens van het formulier. Dit heb ik gedaan met onderstaande code welke ik op het net gevonden heb.

Sub opslaan()
Dim stPath As String
With Sheets("blad1")
stPath = "W:\Klanten\formulieren"
stPath = stPath & "factuur " & .Range("e7").Value & ""
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(stPath) Then .CreateFolder stPath
End With
End Sub

Ik heb echter twee probleempjes:
1- bij het opslaan krijg ik een melding dat hij het pat niet kan vinden maar toch wordt er op de juiste plaats een map aangemaakt.
2- Als op het formulier een omschrijving bijvoorbeeld verkeerd is geschreven dan staat deze schrijffout dus ook verkeerd in de naam van de map. Het lukt mij dan niet om de naam te wijzigen of om de map te verwijderen.

Naast dat je net als de meesten het "\" teken op de juiste plek mist zou je de code ook in codetags moeten plaatsen.

krijgt geen End With mee. Dus is ook niet goed.

Als je een object maar 1 keer aanroept heeft with geen toegevoegde waarde.

De laatste 5 tekens lijken mij niet nodig. Net als de onnodige spatie achter factuur.

Alle drie de mappen worden aangemaakt indien niet aanwezig in W.

Het werkt. Bedankt