Want script to not aply on ceartin rows and columns

[nesse11]

Hi there!

This script changes the cell color when doubleclicked, but i don't want it to "work" for certain rows and columns because they are headers and other text.
So...i want this script to be excluded from:
row
1
2
3
4
5
12
21
And column:
A

I know you smart people knows how to fix this?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex >= 1, -4142, 15)
End Sub

 

[wideboydixon]

Try:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim c As Range
    Cancel = True
    For Each c In Target
        If c.Row > 5 And c.Row <> 12 And c.Row <> 21 And c.Column <> 1 Then
            c.Interior.ColorIndex = IIf(Target.Interior.ColorIndex >= 1, -4142, 15)
        End If
    Next c
End Sub

WBD

 

[nesse11]

Like magic
Many thanx!!