Below is one of the variations of code I have tried to use in order to get my the cancel button on the inputbox to not run the rest of the code in the sub.

Im not out of ideas and could use some help. Please and thank you.



Sub Kitchen_Line_4()
Dim Response As Variant
Dim lRow As Long


Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'Input Box
    Response = Application.InputBox("Quantity", "Quantity")
    If Response = False Then
    Exit Sub
    ElseIf Response = "" Then
    MsgBox "You must input a quantity or click cancel to exit"
    Exit Sub
    End If
    
Sheets("Client Bid").Select
Range("D500").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Quantity
Sheets("Contractor Approval").Select
Range("D500").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Quantity


'Copy and Paste
    Range("C4:E4").Copy Sheets("Client Bid").Range("A500").End(xlUp).Offset(1, 0)
    Range("C4:D4").Copy Sheets("Contractor Approval").Range("A500").End(xlUp).Offset(1, 0)
    Range("F4").Copy Sheets("Contractor Approval").Range("C500").End(xlUp).Offset(1, 0)