Restricting Range

[yurip]

Hello All, I use the below code to change the color of a row of cells when a user double clicks. Problem is the row beyond the table its meant to act on is affected. Is there a way to restrict EntireRow so that it only acts within a range? Thanks!

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     
    If Target.Interior.Color = vbGreen Then
    Cancel = True
    Target.EntireRow.Interior.ColorIndex = 22
    Target.Interior.Color = vbRed
    ElseIf Target.Interior.Color = vbRed Then
    Cancel = True
    Target.EntireRow.Interior.ColorIndex = 0
    Target.Interior.Color = vbYellow
    
        
    ElseIf Target.Interior.Color = vbYellow Then
    Cancel = True
    Target.EntireRow.Interior.ColorIndex = 35
    Target.Interior.Color = vbGreen
    End If
End Sub

 

[Norie]

Which range would you want to restrict it too?

 

[yurip]

Change EntireRow to .Offset(0, 1).Resize(, 11) and that seems to work!

 

[yurip]

I was trying to have the code only work within the A3:I2455 range but every time I tried to apply that, I would make a mistake or make my code run an infinite loop.