On error goto

Hi,

I am trying to create a macro that runs a path if it is present, if not it will try the next down down in a list, and so on until it shows an error message if nothing is found. An extract of the code is beneath, but the second on error goto wont work, it just says "File not found" and stops. However the first one works just fine. I am sure that there is a far cleaner way of doing this, but I'm darned if I know it. Any help would be greatly appreciated as I have been mucking about with it for hours.

Private Sub runTxShuttleScript(scriptName As String, xlFile As String, sheetName As String, startRow As String, numRows As String, Optional logColumn As String)

        On Error GoTo newshuttle
        programm = "c:\program files\winshuttle\txshuttle\txshuttle.exe"
        out = Shell(programm & " " & scriptName & xlFile & sheetName & startRow & numRows & logColumn, vbNormalFocus)

exithandler:
        Exit Sub
        
newshuttle:
       On Error GoTo newshuttle2
       programm = "C:\Program Files\Winshuttle\transactionSHUTTLE8\txshuttle.exe"
       out = Shell(programm & " " & scriptName & xlFile & sheetName & startRow & numRows & logColumn, vbNormalFocus)
        
exithandler2:
        Exit Sub

newshuttle2:
        On Error GoTo errhandler
        programm = "c:\program files\winshuttle\runshuttle8\txrunner.exe"
        out = Shell(programm & " " & scriptName & xlFile & sheetName & startRow & numRows & logColumn, vbNormalFocus)
        
exithandler3:
        Exit Sub


errhandler:
        MsgBox "This operation can only be run on a computer with XXXXX." & vbNewLine & "You do not have the correct software.", _
        vbOKOnly, "No Software Found"
        Sheets("Master").Select
        
End Sub

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Code tags added this time

Maybe like this?

Private Sub runTxShuttleScript(scriptName As String, xlFile As String, sheetName As String, startRow As String, numRows As String, Optional logColumn As String)
    On Error Resume Next

    programm = "c:\program files\winshuttle\txshuttle\txshuttle.exe"
    out = Shell(programm & " " & scriptName & xlFile & sheetName & startRow & numRows & logColumn, vbNormalFocus)
    If Err.Number = 0 Then Exit Sub

    programm = "C:\Program Files\Winshuttle\transactionSHUTTLE8\txshuttle.exe"
    out = Shell(programm & " " & scriptName & xlFile & sheetName & startRow & numRows & logColumn, vbNormalFocus)
    If Err.Number = 0 Then Exit Sub

    programm = "c:\program files\winshuttle\runshuttle8\txrunner.exe"
    out = Shell(programm & " " & scriptName & xlFile & sheetName & startRow & numRows & logColumn, vbNormalFocus)
    If Err.Number = 0 Then Exit Sub

    MsgBox "This operation can only be run on a computer with XXXXX." & vbNewLine & "You do not have the correct software.", _
           vbOKOnly, "No Software Found"
    Sheets("Master").Select
End Sub