I have following code contributed by Mr.APO of this forum i am very thankfull for that ,
that code perform a result is that if in column "A" which value's sum equal to 108 these code
highlight that values, I want one modification in that code ,
I want that also highlight that values which sum colse to 108, I mean to say that if sum is equal to 107.66
or 107.75 or 108.98 & so on, I mean to say that if sum between 107 and 109 that includes decimel values also highlight that values.

Private Sub CommandButton1_Click()
Dim x, y, i As Long, ii As Long, z, cnt As Long, a As String
ReDim y(0)
With Range("A1").CurrentRegion
  x = Application.Transpose(.Value): cnt = 0
  For i = LBound(x) To UBound(x)
   For ii = LBound(x) To UBound(x)
    If x(i) + x(ii) = 108 Then
    ReDim Preserve y(cnt)
     y(cnt) = i: cnt = cnt + 1
    End If
   Next ii
  Next i
 a = "A" & y(0)
   For z = 1 To UBound(y)
    a = a & ",A" & y(z)
   Next z
Range(a).Interior.ColorIndex = 6
End With
End Sub