Saving file on a network drive where the drive letter varies between users

[acombest]

This is the code I have but it really only works when the user has the L: drive which is not always the case. How do I save a file when I users all have different drive letters? Also why doesn't my error handling work? I feel like I don't fully understand how to structure the error handling. All help is greatly appreciated. Thanks

On Error GoTo alt
wb.SaveAs "L:\AJ's Inventory Project\McKesson Orders\" & workbookname
Ignoreme = 0
If Ignoreme = 1 Then
alt:
On Error Resume Next
wb.SaveAs "S:\AJ's Inventory Project\McKesson Orders\" & workbookname
End If

 

[Kenneth Hobson]

Sub SaveToNetwork()
  Dim fp, wb As Workbook, fso As Object, workbookname As String
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set wb = ActiveWorkbook
  workbookname = wb.Name

  Select Case True
    Case fso.folderexists("L:\AJ's Inventory Project\McKesson Orders\")
      fp = "L:\AJ's Inventory Project\McKesson Orders\"
    Case fso.folderexists("S:\AJ's Inventory Project\McKesson Orders\")
      fp = "S:\AJ's Inventory Project\McKesson Orders\"
    Case Else
      fp = False
  End Select
  
  If Not fp Then
    MsgBox "No file path found.", vbCritical, "Macro Ending"
    Exit Sub
  End If
  
  wb.SaveAs fp & workbookname
End Sub