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