Prevent event from firing on range selection

[Rudi]

Hi,

I have this code:

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    On Error Resume Next
    If Not Intersect(Target, Range("G3:G102")) Is Nothing And Target.Value <> "" Then
        Target.Offset(0, 3).Copy
        Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats
    End If

How can I prevent it from running the copy/paste process if I select a range of cells in the target area (G2:G100) and press delete?
I've tried: If Selection.Cells.Count > 1
And: Intersect(Target, Range("G3:G102")).Cells.Count > 1

No luck!
TX

[HansV]

Try

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.CountIf(Target, "=") = Target.Cells.Count Then Exit Sub
    On Error Resume Next
    If Not Intersect(Target, Range("G3:G102")) Is Nothing Then
        Target.Offset(0, 3).Copy
        Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _
            xlPasteValuesAndNumberFormats
        Application.CutCopyMode = False
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

[Rudi]

Excellent :)
TX