if more than 2 decimal places
Give this a try...
If Len(CStr(Cells(1, 1).Value)) - 2 _
InStr(CStr(Cells(1, 1).Value), ".") Then
MsgBox "More"
Else
MsgBox "Equal or Less"
End If
Rick
"gbink" wrote in message
...
How can I determine programmatically within VBA whether or not the
contents
of a cell have more than 2 decimal places? Anyone able to help?
|