Message Boxes in Reset Macro

I can see the finish line from here ...

Sub ResetWorkbook2()
' ResetWorkbook Macro
' This macro will reset your workbook
    Application.ScreenUpdating = False
    Range("A8").FormulaR1C1 = "Rate Indication"
    Application.EnableEvents = False
    With Sheets("Loss Development Factors")
        .Range("B3:U22").ClearContents
        .Range("B52").FormulaR1C1 = "=MEDIAN(R[-7]C:R[-2]C)"
        .Range("B52").AutoFill Destination:=.Range("B52:T52"), Type:=xlFillDefault
        .Select
        .Range("B3").Select
    End With
    With Sheets("Claim Count - Credibility")
        .Range("B3:U22").ClearContents
        .Select
        .Range("B3").Select
    End With
    With Sheets("Rate Indication Instructions")
        .Range("N28:O53").ClearContents
        .Range("Q37").ClearContents
        .Range("I20").ClearContents
        .Range("I15").ClearContents
        .Range("I14").ClearContents
        .Range("I13").ClearContents
        .Range("I11").ClearContents
        .Range("I10").ClearContents
        .Range("I9").ClearContents
        .Range("I8").ClearContents
        .Select
        .Range("C56").Select
        .Range("I8").Select
        .Range("C37:C56").Cells.ClearContents
    End With
    With Sheets("Summary & Results")
        .Range("P32").FormulaR1C1 = "=R[-4]C"
    'ActiveCell.FormulaR1C1 = "=R[-4]C"
    End With
    Application.EnableEvents=True
    With Sheets("Selection")
        .Range("A8").FormulaR1C1 = "Loss Ratio Projection"
    End With
    Application.EnableEvents=False
    With Sheets("Loss Ratio Proj Instructions")
        .Range("P22:Q47").ClearContents
        .Range("S31").ClearContents
        .Range("I14").ClearContents
        .Range("I13").ClearContents
        .Range("I11").ClearContents
        .Range("I10").ClearContents
        .Range("I9").ClearContents
        .Range("I8").ClearContents
        .Select
        .Range("C52").Select
        .Range("I8").Select
        .Range("C33:C52").ClearContents
    End With
    Application.EnableEvents = True
    With Sheets("Selection")
        .Range("A8").FormulaR1C1 = ""
        .Range("A8").Select
    End With
    Application.ScreenUpdating = True
End Sub

Originally Posted by Andrew-R

I can see the finish line from here ...

Haha, Unfortunatly i am now getting those stubborn boxes popping up again. hah, this is so frustrating. It seems to be back at square one.