Try this code
Set rng = Range("A1:A10")
For Each c In rng
If c.NumberFormat = "0.00" Then
sNumberString = Str(c.Value)
If InStr(1, sNumberString, ".") Then
nLength = Len(sNumberString)
If (nLength - InStr(1, sNumberString, ".") > 2) Then
'At this point the cell is formated to 2 decimal places
'but the number is more than this
'
'Do what you want here!
End If
End If
End If
Next