David and Gord:

I manipulated the code to look for a interger value as opposed to the .0
values the following way---

from:
If Not wks.Cells(i, 1).Value Like "*.0" Then

to
If Not wks.Cells(i, 1).Value Like Int(wks.Cells(i, 1).Value) Then

And it worked perfectly, now I just have duplicate rows of
0,0,1,1,2,2....n,n that I will be working on.

Thank you for all of your time, talent and expertise. I really learned alot
with these new functions.

Kind regards,

D.Parker

"Gord Dibben" wrote:

Correction

=A1-INT(A1)=0.05


Gord

On Wed, 10 Oct 2007 15:02:33 -0700, Gord Dibben <gorddibbATshawDOTca wrote:

I'm baaaack.

Try this method.

Assuming data cells are column A

In B1 enter and drag/copy down. =A1-INT(A1)0.05

Will give TRUE or FALSE.

1.023 will be false.

1.2345 or 1.067 will be TRUE

Filter out the TRUE's and format what's left to 1 DP

If this gives you what you want, we can deal with weeding out the duplicates.


Gord