Message Boxes, Routines and how prevent Message boxes until an event happens

[CotnRsk]

Sub TransferCaptpuredValues()
    Dim CheckMark As String
    Dim ReminderCell As Range
    Set ReminderCell = Worksheets("NewYearSetup").range("I16")
    If MsgBox("Ready to transfer those values?", vbYesNo, "Transfer Values") = vbNo Then Exit Sub
    ' Some stuff I have it do
    ActiveWorkbook.Save
    ActiveWindow.Close
    Worksheets("NewYearSetup").Select
    CheckMark = ""
    On Error Resume Next
    CheckMark = Worksheets("Sheets1").Range("A2").value
    On Error Goto 0
    If CheckMark <> "" Then
        Worksheets("NewYearSetup").Range("M12").value = CheckMark
        If Range ("M2").value <> "" And Range("M6").value "" And Range("M8").value And Range("M10").value <> "" And Range("M12").value <> "" Then
            MsgBox "Congrats, you are ready for the new year", vbInformation, "Process Complete"
            ReminderCell = "Done"
        Else
            Worksheets(("NewYearSetup").Range("m12").value = Worksheets("Sheets1").Range("B2").value
            If Range("I16").value = "" Then MsgBox "The process is not complete. Check to see which one doesnt have a check mark and run that process first", vbInformation, "Incomplete"
        End if
   End if
End Sub