clear check box sends 2 emails instead if 1?

[Patriot2879]

Hi hope you can help, I have the code below for when the check box is clicked it sends an email, but I have just added the uncheck checkbox code, and this now sends 2 emails instead of the 1, 1 for when its checked and an email for when unchecked, can you help please?

Private Sub CheckBox1_Click()
  
Range("F8").Value = Range("F8").Value + 1
Worksheets("Handover").Range("H5:P5").Copy Worksheets("Chase").Range("A1")
Call Mail_Selection_Range_Outlook_Body

With ActiveSheet
    For Each objX In .OLEObjects
        If TypeName(objX.Object) = "CheckBox" Then
            If objX.Object.Value = True Then
                objX.Object.Value = False
            End If
        End If
    Next
End With
End Sub

 

[DanteAmor]

Try this

Private Sub CheckBox1_Click()
[COLOR=#0000ff]    If CheckBox1 = False Then Exit Sub[/COLOR]
    
    Range("F8").Value = Range("F8").Value + 1
    Worksheets("Handover").Range("H5:P5").Copy Worksheets("Chase").Range("A1")
    Call Mail_Selection_Range_Outlook_Body


    With ActiveSheet
        For Each objX In .OLEObjects
            If TypeName(objX.Object) = "CheckBox" Then
                If objX.Object.Value = True Then
                    objX.Object.Value = False
                End If
            End If
        Next
    End With
End Sub

 

[Patriot2879]

Great thank you for your help, this has done the trick, thank you

 

[DanteAmor]

Great thank you for your help, this has done the trick, thank you

I'm glad to help you. Thanks for the feedback.