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