Private Sub CheckBox3_Click()
If CheckBox3 = True And Range("C2").Value = "1" And CheckBox2 = True
And Range("E2").Value = "Comments Cleared" Or Range("E2").Value = "No
Comments" Then
       Range("f2").Value = "1"
End If
If CheckBox3 = True And CheckBox2 = False And Range("C2").Value < "1"
Or Range("C2").Value > "1" And Range("E2").Value = "...Please Select..."
Or Range("E2").Value = "See Comments" Then
       yourMsg = MsgBox("Workpaper must be completed, reviewed by
Senior/Manager, and comments must be addressed in order to pass to
Manager/Partner for review!", 0, "Error")
       CheckBox3 = False
       Range("f2").Value = "0"
End If
End Sub

the prior check box uses this code:

Private Sub CheckBox2_Click()
If CheckBox2 = True And Range("C2").Value < "1" Or Range("C2").Value >
"1" Then
       yourMsg = MsgBox("Workpaper must be 100% complete to pass on
to manager review", 0, "Error")
       CheckBox2 = False
       Range("d2").Value = "0"
End If
If CheckBox2 = True And Range("C2").Value = "1" Then
       Range("d2").Value = "1"
       CheckBox1 = True
End If
If CheckBox2 = False Then
       Range("d2").Value = "0"
End If
End Sub

what is causing this :
 yourMsg = MsgBox("Workpaper must be completed, reviewed by Senior/
Manager, and comments must be addressed in order to pass to Manager/
Partner for review!", 0, "Error")

to pop up twice...?

Thanks,
Andrew