caveat: this assumes that the results were manually entered, and not the
result of calculations (where the vagaries of binary approximation could
lead a result that appears to have only 2 decimal places, yet is not
equal to its rounded value.

Jerry

Bob Phillips wrote:

Sub CheckDecimals()
Dim cell As Range

For Each cell In Selection
If cell.Value < Round(cell.Value, 2) Then
MsgBox cell.Address
End If
Next cell

End Sub