Can't get folder to create on desktop. When debugging it shows no errors.

[dallas2024]

Sub WO_SaveUpdate()
Dim WORow As Long, WOCol As Long
Dim AssignedTo As String, SharedFolder As String, FileName As String, FilePath As String

ActiveWorkbook.Save
   
   Application.ScreenUpdating = False
   
With Sheet1
 If .Range("D4").Value = Empty Or .Range("H4").Value = Empty Or .Range("D10").Value = Empty Or .Range("C15").Value = Empty Then
    MsgBox "Please Complete Yellow Boxes"
    Exit Sub
 End If
 End With


With Sheet3
If .Range("C4").Value = Empty Then
    MsgBox "Please add in a shared folder location"
    Exit Sub
End If
End With

With Sheet2
If Worksheets("WO Data").Range("B11").Value = True Then 'new WOrk order
    WORow = .Range("C99999").End(xlUp).Row + 1  'First Avail. Row
Else ' Existing Work Order
End If
End With


With Sheet1
 For WOCol = 3 To 11
   Sheet2.Cells(WORow, WOCol).Value = .Range(.Cells(30, WOCol).Value).Value 'Place values in WO Row
    Sheet4.Range(.Cells(29, WOCol).Value).Value = .Range(.Cells(30, WOCol).Value).Value 'Place Values in WO Template
 Next WOCol
 Sheet2.Range("B11").Value = False 'Set new WO to false
Sheet2.Range("B12").Value = WORow


'Create/Update Work Order in Shared folder if status is Open
If .Range("D8").Value = "Open" Then
    AssignedTo = .Range("H4").Value 'Assigned To
    SharedFolder = Sheet3.Range("C4").Value 'Shared Folder location
    FileName = "Work Order_" & .Range("D6").Value 'File Name Work Order & #
    If Dir(SharedFolder & "\" & AssignedTo, vbDirectory) = "" Then MkDir (SharedFolder & "\" & AssignedTo) 'Create Folder if it does not exist
    FilePath = SharedFolder & "\" & AssignedTo & "\" & FileName & ".xlsx"
    On Error Resume Next
    Kill (FilePath)
    On Error GoTo 0
    Sheet4.Range("A1:B26").Copy
    Workbooks.Add
    ActiveWorkbook.Sheets(1).Range("A1").PasteSpecial xlPasteAll
    ActiveWorkbook.Sheets(1).Range("A1").PasteSpecial xlPasteColumnWidths
    ActiveWorkbook.SaveAs FilePath
    ActiveWorkbook.Close False
    Sheet2.Range("G" & WORow).Value = Now 'Update Assigned On to Current date & Time
    
    Application.ScreenUpdating = True
    
    ActiveWorkbook.Save
    
End If

End With
End Sub

 

[Skyybot]

Remove the On Error Resume Next and see where it Errors. Then you should be able to see the problem.

 

[dallas2024]

I removed and still the same.

 

[Skyybot]

All of your Variables are checking out (Locals Window) as you Step Through?

 

[dallas2024]

let me double check again

 

[dallas2024]

showing nothing in return

 

[dallas2024]

pic 1 I fill in the field. Then Pic 2 is where I hit save. Pic 3 after saving it fills in the field and suppose to create folder on the desktop.

 

[Skyybot]

Try this.

If IsEmpty(SharedFolder & "\" & AssignedTo) Then MkDir (SharedFolder & "\" Assignedto)

 

[dallas2024]

gives me a syntax error

 

[jolivanes]

In your code you have Sheet1, Sheet2, Sheet3 and Sheet4. Don't see these in your pictures.
In your pictures you have "Work Order", "WO Data", "Name" and "WO" (all without double quotes).

Do you mean Sheet1 to be "Work Order", Sheet2 to be "WO Data", Sheet3 to be "Name" and Sheet4 to be "WO"?

Maybe explain in a concise manner what you would like to achieve. It can be a daunting task to decipher code to make sense of it sometimes and also guessing that should not be required if the OP explains properly what he/she wants.