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
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
VBA Code:
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