"If" statement results in Type mismatch error.

Hi,

The "If" statement below results in a
Run Time Error 13
Type Mismatch

What would be the correct way to construct the "If" statement?

Thanks


Sub MakeSimilarDist()
'
last = Cells(Rows.Count, "AM").End(xlUp).Row
For i = last To 1 Step -1
If (Cells(i, "AM").Value) < (Cells(i, "DS").Value) + 0.6 Or (Cells(i, "AM").Value) > (Cells(i, "DS").Value) - 0.6 Then
Cells(i, "A").EntireRow.Delete
End If
Next i
'
End Sub

Try:

Please Login or Register  to view this content.

Regards, TMS

msmick...

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here