In my excel sheet, column 7 is Column 'G'
I have a BeforeDoubleClick trigger on Column 7.
I also have a Worksheet_Change trigger on Column G which is also colum 7.
When I doubleclick a cell in Column 7, how can I stop the Worksheet_change event from being triggered on Column 'G'.
I have included the BeforeDoubleClick and Worksheet_Change events below



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
Dim doubleClickedCell As Range
Set doubleClickedCell = Target.Cells(1)

    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column = 3 Then
        TaskReminder Target
    ElseIf Target.Column = 7 Then
        ServiceReminder Target
    ElseIf Target.Column = 9 Then
        Thankyou Target
        previousValue = doubleClickedCell.Value
    doubleClickFlag = True
    End If
        If Target.CountLarge > 1 Then Exit Sub
        If Not Intersect(Target, Range("B2")) Is Nothing Then
        Call DisplayServices
    End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Set rng = Intersect(Target, Range("I:I"))
    If Not rng Is Nothing Then
        For Each cell In rng
            If IsDate(cell.Value) Then
                If cell.Offset(0, -7).Value = "Service" Then
MsgBox "Thank you for entering Service Date Completed. Please proceed to enter Service Schedule as number of days."
                    Exit Sub
                Else
                If Not doubleClickFlag Then
                    MsgBox "Please change the Issue description ( column B ) as required."
                    End If
                    doubleClickFlag = False
                    Exit Sub
                End If
            End If
        Next cell
    End If
    Set rng = Intersect(Target, Range("G:G"))
    If Not rng Is Nothing Then
        For Each cell In rng
            If IsNumeric(cell.Value) Then
                If IsDate(cell.Offset(0, 2).Value) = False Then
                    MsgBox "Date Service Completed not present"
                    Exit Sub
                ElseIf cell.Offset(0, -5).Value <> "Service" Then
                    Exit Sub
                Else
            MsgBox "A New Service row will now be created"
                    cell.Offset(0, -5).Value = "Serviced"
            cell.Offset(0, 1).Value = ""
                    Dim newRow As Long
                    newRow = Cells(Rows.count, "B").End(xlUp).Row + 1
                    Range("B" & newRow).Value = "Service"
                    Range("C" & newRow).Value = cell.Offset(0, 2).Value
                    Range("F" & newRow).Value = cell.Offset(0, -1).Value
                    Range("J" & newRow).Value = cell.Offset(0, 3).Value
                    Range("L" & newRow).Value = cell.Offset(0, 5).Value
            Range("H" & newRow).Value = cell.Offset(0, 2).Value + cell.Value
                    Exit Sub
                End If
            End If
        Next cell
    End If
If Target.Column = 5 Then
ColumnList Target
End If
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("I:I")) Is Nothing Then
If IsDate(Target.Value) Then
If Range("B" & Target.Row).Value <> "Request" Then
Exit Sub
Else
MsgBox "Please change 'Request' to the relevant Task Issue"
Range("B" & Target.Row).Select
Exit Sub
End If
End If
End If
End Sub