Function InRange(Range1 As Range, Range2 As Range) As Boolean
    Dim InterSectRange As Range
    Set InterSectRange = Application.Intersect(Range1, Range2)
    InRange = Not InterSectRange Is Nothing
    Set InterSectRange = Nothing
End Function
 
Sub ColourChange()
    If InRange(ActiveCell, Range("B2:B65536")) Then
        Cells.Interior.ColorIndex = xlNone
        Range("F" & ActiveCell.Row, "P" & ActiveCell.Row).Interior.ColorIndex = 4
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call ColourChange
End Sub