Handling Error Message when file path does not exsist

[brinehart]

StrInput = Me.SearchListbox.Column(1)
    Application.FollowHyperlink StrInput, , True

When I click on a row in a list box it grabs a url for a file location on my server and opens the location specified, but if the server is down or the url is inncorrect I get an error message "Runtime Error 490 can not find specified file"



it works when the path is correct how can I display a friend message box stating that the path is incorrect or ignore the error all together?

[Bob Fitz]

Add some error-handling code to the procedure

Private Sub YourSub()
On Error GoTo ErrorHandler
    
    'Your code is here
Exit_ErrorHandler:
    Exit Sub
ErrorHandler:
  If err.Number = 490 Then
    MsgBox "Your Msg Here"
  Else
    MsgBox "Error Number " & err.Number & " : " & err.Description
    Resume Exit_ErrorHandler
  End If
  
End Sub

[brinehart]

That worked great thanks a bunch!