Check for folder; create if it does not exist

[Killian]

Another option would be to use the FileSystemObject

Dim fso As Object
Const FLDR_NAME As String = "C:\P2P User Folder\"

    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If Not fso.FolderExists(FLDR_NAME) Then
        fso.CreateFolder (FLDR_NAME)
    End If
    
    'save the file
    ActiveWorkbook.SaveAs Filename:= _
    FLDR_NAME & "newuser.csv" _
    , FileFormat:=xlCSV, CreateBackup:=False