Absolute Value -- Error type mismatch

Hi all,

I am running a macro that classifies exclusions in a data set. Everything works fine except one thing. I am checking to see if the value in a set column is greater than 3, if so I want it to set the exclude value to 4. I have similar things written for all of the other checks, but the difference with this column is that it is an absolute value calculation. The code for this section is below. It returns error type mismatch

For i = 2 To ActiveSheet.Cells(Rows.Count, rm.Column).End(xlUp).Row
    If ActiveSheet.Cells(i, rm.Column).Value > 3 Then
        ActiveSheet.Cells(i, Excl.Column).Select
        ActiveCell.Value = 4
    End If
Next

Any help would be appreciated!

Thanks,
Scott

Scott

Which line of code is the error occurring on?

Also what do you mean by an 'absolute value calculation'.

If your calculation returns a number, absolute or not, it won't cause a mismatch.

Things that can cause mismatches are text values and errors in a cell.

Have you checked what the actual value of ActiveSheet.Cells(i, rm.Column).Value is when you get the error?

Can you upload a sample workbook?

Click on GO ADVANCED and use the paperclip icon to open the upload window.

Are you sure you don't have any numbers stored as text?

Is the code definitely being run against the correct sheet in the correct workbook?

Do you have any headers?