Copy Values Between Specified Number Range

In the code below I am trying to scan a column and copy the values -.03 and lower OR 0.3 and greater. I selected a case to do nothing if the value is within the range of -0.2 To 0.2 but this configuration will still copy over -0.2 and 0.2 values along with the ones outside this range. I tried using -0.3 To 0.3 but that skipped the 0.3 values.

Is the negative throwing this off? The code works perfectly, it just brings the twos with it.


Sub TempCase()
Dim colSearch As Range
Dim celVal As Range
Dim celRow As Range
Sheets("Sheet3").Range("A1").Copy Destination:=Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
With Sheets("Sheet3")
Set colSearch = Intersect(.Range("C:C"), .UsedRange)
End With
For Each celVal In colSearch
Select Case celVal.Value
Case -0.2 To 0.2
Case Else
Set celRow = Union(celVal.Offset(0, 1), celVal.Offset(0, 2), celVal)
celRow.Copy Destination:=Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
End Select
Next celVal
End Sub