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


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Brian" <Brian @discussions.microsoft.com wrote in message
...
I'm look for a macro that will check the number of decimal places in a
range
of values. I would like to have a pop up box alert the user when a cell
is
found in that range that contains more than 3 decimal places. For example
if
the numbers in a range are 50.35, 25.2, 35.235, and 35, the macro would
stop
on that cell and deliver a pop up box showing me that it contains more
than 3
decimal places. I can create an excel formula to check the information:
=if(B2<trunc(b2,2,"error",B2) however I don't know enough VBA to get this
fomula into a macro to check a range.
Any help would be great.

Thanks
Brian