Hi Guys

I am trying to save the data to desktop folder but i give me error check the path. but when i trying to save the file at network drive its working fine.

C11 i am entering : C:\Users\A\Desktop\Carrier\Send Files (-----Not Working----)
c11 i am entering \\network drive\mydrive (-----Working---------)


Thanks guys 



Sub Split_Data_in_workbooks()
Application.ScreenUpdating = False
Dim data_sh As Worksheet
Set data_sh = ThisWorkbook.Sheets("Main Data")
Dim setting_Sh As Worksheet
Set setting_Sh = ThisWorkbook.Sheets("Macro")
Dim nwb As Workbook
Dim nsh As Worksheet
setting_Sh.Range("A:A").Clear
data_sh.AutoFilterMode = False
data_sh.Range("F:F").Copy setting_Sh.Range("A1")
setting_Sh.Range("A:A").RemoveDuplicates 1, xlYes
Dim i As Integer
For i = 2 To Application.CountA(setting_Sh.Range("A:A"))
    data_sh.UsedRange.AutoFilter 6, setting_Sh.Range("A" & i).Value
    Set nwb = Workbooks.Add
    Set nsh = nwb.Sheets(1)
    data_sh.UsedRange.SpecialCells(xlCellTypeVisible).Copy nsh.Range("A1")
    nsh.UsedRange.EntireColumn.ColumnWidth = 15
    nwb.SaveAs setting_Sh.Range("C11").Value & "/" & setting_Sh.Range("A" & i).Value & ".xlsb"
    nwb.Close False
    data_sh.AutoFilterMode = False
Next i
setting_Sh.Range("A:A").Clear
MsgBox "Done"
End Sub