In the second routine.

It was coming back up when I went back and deselect check3 so I put in

If Check3 = 0 Then
Exit Sub

after Private Sub Check3_Click(). That killed that msgbox.