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)
Bookmarks