Sub MsgBox_1()
Dim answer As Integer
answer = MsgBox("Are you ready to start the night audit file process?" & vbNewLine _
& "This is for the date of: " & Format(Date - 1, "mm-dd-yyyy"), vbQuestion + vbYesNoCancel, "Night Audit Processing Step 1 of 5")
If answer = vbYes Then
Call PNT2
MsgBox "Nihgt Audit Checklist printed"
'Call pmtpause
Call Makefolder
Call FolderPicker
Call Msgbox_1A
ElseIf answer = vbNo Then
MsgBox "Click Start prior to running audit in Opera when ready.", , "Night Audit Processing"
Else
Call Reset
End If
End Sub