type missmatch error on if statement

[batchjb69]

I wish to copy a row if a cell in column W is either greater than 5 or less than -5 but I get the below missmatch error. Any ideas why

drowM = 2
drowE = 2
With Worksheets("INPUT")
  LR = .Cells(.Rows.Count, "A").End(xlUp).Row
  For r = 2 To LR
    mand = .Range("W" & r)
    If (mand > 5 Or mand < -5) Then
      .Rows(r).Copy Worksheets("CASH OUTLIERS").Cells(drowM, 1) '
      drowM = drowM + 1
    End If
  Next
End With

[Norie]

The cell contains an error or text.

[batchjb69]

OK

Also if the cell is blank it will copy the row row accross but I only want values that are plus 5 or minus 5