Makro der gemmer en fil i en bestemt mappe

Du kan lave et check på om en mappe eksistere v.h.a. et FileSystemObject:

Jeg har kopieret ovenstående ind i min makro.
Ændret "strFolder" til min sti.

Men makroen debugger i "fs.CreateFolder (strFolder)"

Og slettet min MKdir - linie.

Hvad gør jeg galt?

Hvilken fejl kommer der ved "fs.CreateFolder..."?

Run-time error "76"

Path not found

Kan du vise hele din kode ?

Range("N3").Select
    Selection.Copy
    Range("N5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Dim fs As Object
    Dim strFolder As String
    strFolder = "C:\Ugerapporter\2015\"
    Set fs = CreateObject("Scripting.FileSystemObject")
    If Not fs.FolderExists(strFolder) Then
    fs.CreateFolder (strFolder)
    Debug.Print "New folder created"
    Else
    Debug.Print "No new folder needed"
    End If
    ActiveWorkbook.SaveAs Filename:="C:\Ugerapporter\2015\" & Range("N5").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
  Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
  CreateBackup:=False
  Range("L19").Select

Har kigget lidt på .CreateFolder, og det ser ud til at den kun vil oprette mapper ét niveau af gangen.
Det samme er vist gældende for MkDir funktionen.
Så hvis du ændrer til burde det virke.

Takker - så virker det.

Smider du lige svar så du kan få dine velfortjente point

Godt så