问MkDir sFolderPath

EN

Public Sub SaveAsA1()
Range("C9").Value = Application.UserName

Set rRng = Sheet1.Range("C8")
    If IsEmpty(rRng.Value) Then

        MsgBox ("Cell (C8) is empty. Please scan in the correct work order number into (C8)")
        End
    Else
    End If

Dim Result As Integer
Result = MsgBox("Are you sure you want to save?", vbQuestion + vbYesNo)
If Result = vbYes Then
MsgBox "\\us.\TEST_DATA\MODULE\" & "WO_" & Range("C8")
Else
End
End If
 
'Variable declaration
    Dim sFolderPath As String
    Dim oFSO As Object
    
    'Define Folder Path
    sFolderPath = "Now saving to \\us.\TEST_DATA\MODULE\" & "WO_" & Range("C8")
    
    'Create FSO Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    
    'Check Specified Folder exists or not
    If oFSO.FolderExists(sFolderPath) Then
        'If Folder is available
    Else
    
    'If folder is not available
    MkDir sFolderPath '<-------------Run time error 76
     End If