VBA msgBox does not appear when ran

[hajiali]

Hello excel experts need help with the below code.
There is way more to the beginning of the code let me know if it is required to help. but for some reason the "Ans = MsgBox("DID YOUR BID PRINT?", vbYesNo)" never appears when the code is ran not sure what I'm doing wrong
any help is greatly appreciated.

Thanks

  Next
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    Ans = MsgBox("DID YOUR BID PRINT?", vbYesNo)
    If Ans = vbNo Then
    Exit Sub
    Else
    End If
End With
    Sheets("Form").Visible = xlVeryHidden
    Sheets("Bid").Range("A3:A503,U3:U503,S1").ClearContents
    Sheets("Bid").Select
    ActiveSheet.Protect Password:="password", AllowFiltering:=True
ActiveWorkbook.Save
MsgBox "YOUR BID HAS BEEN SUBMITTED AND PRINTED. PLEASE SIGN PRINTED COPY AND DROP IN THE BID BOX", vbExclamation
Unload Me
Sheets("Bid").Range("S1").Select
End Sub

 

[Anthony47]

Did the worksheet get printed?
Anyway I'd suggest to show the whole code, I am interested in understanding which event it's linked to.

Bye

 

[hajiali]

it does print and it skips over the Msgbox and proceeds with the rest of the code after End with somehow it never appears

Private Sub CommandButton1_Click()
Dim Ans As Integer
Dim EmpID$, dDate$, Pin$, Rg As Range, I&, x&
EmpID = TextBox1.Value
Pin = TextBox3.Value
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then
   MsgBox "PLEASE FILL IN ALL FIELDS TO PRINT AND SUBMIT BID ... ", vbExclamation: Exit Sub
End If

If Not IsNumeric(EmpID) Then MsgBox "INVALID EMPLOYEE NUMBER ENTER NUMBER WITHOUT THE E", vbExclamation: Exit Sub

With Sheets("BID RESULTS")
   For I = 1 To 2
      dDate = IIf(I = 1, TextBox1.Value, TextBox2.Value)
      If Len(dDate) > 0 Then
         Set Rg = .Columns(1).Find(EmpID, LookAt:=xlWhole)
         If Rg Is Nothing Then
            MsgBox "EMPLOYEE NUMBER DOES NOT EXIST PLEASE TRY AGAIN", vbExclamation:
            TextBox1.Value = ""
            TextBox1.SetFocus
            Exit Sub
         Else
         Set Rg = .Columns(1).Find(EmpID, LookAt:=xlWhole)
    Set Rg = .Cells(Rg.Row, "KW")
If Pin <> Rg Then
        MsgBox "INCORRECT PIN PLEASE TRY AGAIN OR RESET PIN", vbExclamation
        TextBox3.Value = ""
        TextBox3.SetFocus
        Exit Sub
        Else
            Set Rg = IIf(I = 1, ThisWorkbook.Sheets("Bid Data").Cells(2, "E").Resize(1500), ThisWorkbook.Sheets("BID DATA").Range("F" & ThisWorkbook.Sheets("BID DATA").Range("F" & Rows.Count).End(xlUp).Row + 1).Resize(, 1500))
            If InStr(dDate, ".") Then
               For x = 0 To UBound(Split(dDate, "."))
               Next
               For x = 0 To UBound(Split(dDate, "."))
                  Rg.Find("", After:=Rg.Cells(Rg.Count)) = Split(dDate, ".")(x)
               Next
            Else
               Rg.Find("", After:=Rg.Cells(Rg.Count)) = dDate
            End If
         End If
         End If
    ActiveSheet.Unprotect Password:="BNA262"
      Set Rg = IIf(I = 1, ThisWorkbook.Sheets("BID").Cells(1, "S").Resize(1500), ThisWorkbook.Sheets("BID").Cells(3, "U").Resize(1500))
            If InStr(dDate, ".") Then
               For x = 0 To UBound(Split(dDate, "."))
               Next
               For x = 0 To UBound(Split(dDate, "."))
                  Rg.Find("", After:=Rg.Cells(Rg.Count)) = Split(dDate, ".")(x)
               Next
            Else
               Rg.Find("", After:=Rg.Cells(Rg.Count)) = dDate
            End If
            End If
    Sheets("Form").Visible = True
    Sheets("FORM").Select
   Next
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    Ans = MsgBox("DID YOUR BID PRINT?", vbYesNo)
    If Ans = vbNo Then
    Exit Sub
    Else
    End If
End With
    Sheets("Form").Visible = xlVeryHidden
    Sheets("Bid").Range("A3:A503,U3:U503,S1").ClearContents
    Sheets("Bid").Select
    ActiveSheet.Protect Password:="Password", AllowFiltering:=True
ActiveWorkbook.Save
MsgBox "YOUR BID HAS BEEN SUBMITTED AND PRINTED. PLEASE SIGN PRINTED COPY AND DROP IN THE BID BOX", vbExclamation
Unload Me
Sheets("Bid").Range("S1").Select
End Sub

 

[hajiali]

Never mind I was modify this code which is similar to another code i have and was running the other macro

 

[Anthony47]

Glad to know you fixed it by yourself, it was going to be (for me) a little bit complex without a sample worksheet
Bye