Input box - cancel button

Hello All,

I need some help writing a few lines that exits the sub if the users clicks the cancel button...........tried and am failing miserably!

Sub SelectData()
    Dim s_row As Integer
    s_row = 14
    s_row = InputBox("ENTER ROW NUMBER FOR THE JOB YOU WERE AWARDED", "CREATE ACTIVE JOB")
      
    Sheets("ACTIVE JOBS").Unprotect "123"
    
    Set rng = Sheets("ACTIVE JOBS").Range("A6:R6")
    rng.Copy
    rng.EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
    
    Sheets("SALES PIPELINE").Range("A" & s_row & ":B" & s_row).Copy _
                Destination:=Sheets("ACTIVE JOBS").Range("A7:B7")
  
    
    With Sheets("ACTIVE JOBS")
        .Protect "123"
        .EnableSelection = xlUnlockedCells
    End With
    
        
End Sub

Try changing the variable s_row to String, then add one line of code as shown below:

Dim s_row as String

s_row = 14
s_row = InputBox("ENTER ROW NUMBER FOR THE JOB YOU WERE AWARDED", "CREATE ACTIVE JOB")
If s_row = vbNullString Then Exit Sub

You may also want to add a check to confirm the string entered is a valid number (when converted from string to number), otherwise the remaining code may fail.

That worked perfect! I agree with you about validating the other data. The user needs to select data within a specified table, how could I achieve that?

Something like this will check a range of cells to see if the value exists. If it does, you can proceed with your code in the Else portion of the IF statement.

Dim s_row As String

s_row = 14
s_row = InputBox("ENTER ROW NUMBER FOR THE JOB YOU WERE AWARDED", "CREATE ACTIVE JOB")
If s_row = vbNullString Then Exit Sub
If IsError(Application.Match(s_row, Sheets("Sheet1").Range("A1:A20"), 0)) Then
    MsgBox "You must enter a valid value that exists in Sheet1!A1:A20.", vbOKOnly, "Invalid Entry"
Else
    ' Do your stuff
End If