Terminating program in VBA

[yangf]

Hi All,

I am trying to write a program that prompts the user to enter a number to look up in an excel sheet, and if the user enters incrrectly or if the number is not found, program returns an error message and then terminates...

Is there such syntax that terminates athe program?

 

[chataylo]

You can use an if function and say if that error occurs then "end sub"

 

[Jeffrey Lopez]

Indeed:

MsgBox("You entered an invalid number, please correct and run again")
Exit Sub

 

[Andrew Poulsom]

The End statement terminates execution. Example from VBA Help:

Sub Form_Load()
    Dim Password, Pword
    Password = "Swordfish"
    Pword = InputBox("Type in your password")
    If Pword <> Password Then
        MsgBox "Sorry, incorrect password"
        End
    End If
End Sub

 

[yangf]

That makes sense but trying it out I realised that it only terminates the sub that it was in, but carries on with the ones following it since another sub calls this sub...
parts of my code:

Sub StatusReport()

    Dim strProjectNumber As String, LocationAllItems As Long, LocationProcurement As Long
   
    Call NewSheet
    Call FindProject(strProjectNumber, LocationAllItems, LocationProcurement)
    Call TitleBlock(strProjectNumber, LocationAllItems, LocationProcurement)
    Call ViewSetup
   
End Sub

and the if statement is inside the "FindProject" sub:

Sub FindProject(strProjectNumber, LocationAllItems, LocationProcurement)
        strProjectNumber = InputBox(Prompt:="Please Enter Project Number", _
          Title:="Project Number", Default:="Project Number")

        If strProjectNumber = "Project Number" Or _
           strProjectNumber = vbNullString Then
           MsgBox "Project format not recognized, please try again."
            Exit Sub
           
        Else:
        more code
    
        End If
End Sub

 

[Andrew Poulsom]

Did you try what I suggested?

 

[yangf]

I just did, worked perfectly!Thank you!

Did you try what I suggested?