Hello,

I have a pretty simple macro here for printing cells on a worksheet that has inputBoxes to ask for the info. My inputBox "EndJob" to ask for number of copies to print will not return to the inputbox based on quantity and vbYes or vbNo. I am pretty new at this and still learning so I have tried and tried to get this to work but cannot seem to figure it out. Here is the piece of code I have been working on from the complete code below. Any help is greatly appreciated!

EndJob = Application.InputBox(vbNewLine & "Enter the TOTAL number of copies to print:", "TOTAL PRINTS", Type:=1)
If EndJob >= 20 Then
Response = MsgBox("Are you sure you want to print " & EndJob & " copies?", vbYesNo + vbCritical)

' this is where I am stuck
If Response = vbNo Then  ' how do I return to inputBox to ask for a new quantity?

If EndJob = 0 Then Exit Sub   'operator pressed cancel

-------------------------------------------
Code without IF statements



Sub PrintJobSheet()

Range("I9").ClearContents

Dim Serial As String, StartJob As Long, EndJob As Long, Job As Long, aNum As String


Do
'ask for assembly number
Assy = UCase(Application.InputBox(vbNewLine & "Enter the ASSEMBLY END-ITEM NUMBER: " & vbNewLine & vbNewLine & "*PRESS ENTER AFTER EACH ENTRY", "Assembly", Type:=2))
Range("D7").Value = Assy
Loop Until Len(Assy) > 2


Do
'ask for A Number
aNum = UCase(Application.InputBox(vbNewLine & "Enter the A NUMBER: ", "A-Number", Type:=2))
Range("D9").Value = aNum
Loop Until Len(aNum) > 3


Do
    Serial = Left(UCase(Application.InputBox(vbNewLine & "Enter beginning 'LETTER' of the SERIAL NUMBER:", "LETTER", Type:=2)), 1)
    If Serial = "FALSE" Then Exit Sub
Loop Until Not IsNumeric(Serial)

StartJob = Application.InputBox(vbNewLine & "Enter the 'FIRST SERIAL NUMBER' to be printed:", "S/N START", Type:=1)
If StartJob = 0 Then Exit Sub    'operator pressed CANCEL

EndJob = Application.InputBox(vbNewLine & "Enter the TOTAL number of copies to print:", "TOTAL PRINTS", Type:=1)

If EndJob = 0 Then Exit Sub   'operator pressed cancel


        For Job = StartJob To StartJob + EndJob - 1
        Range("I9").Value = Serial & Job
        ActiveWindow.SelectedSheets.PrintOut
    Next Job

    Range("I9").ClearContents
    
    Call ClearRange
    
    ActiveWorkbook.Save
    Application.DisplayAlerts = False
    Application.Quit
    
End Sub