Option Explicit ' Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 1 Then Exit Sub If Target.Count > 1 Then Exit Sub If Not IsNumeric(Target.Value) Then Exit Sub If Len(Target.Value) = 0 Then Exit Sub [a2:i4].Interior.ColorIndex = xlNone Dim r For Each r In [a2:i4] If Abs(r.Value - Target.Value) <= 0.05 Then r.Interior.Color = vbGreen Next End Sub