VBA Function not detecting all 3 decimal places in cells

[hasanahmad]

I have a code where

If cell.Value > Round(cell.Value, 2) And cell.Interior.ColorIndex = -4142 Then
                       cell.Interior.ColorIndex = 36
          End if

this only seems to be picking up those cells with 3 decimal places which have a value like 12.224 not something which has a value like 12.228

If I put in 12.228 it rounds it off to 12.23 automatically even though the actual value is 12.228

Is there a way to avoid this?

Thanks