I am using the following select case statement:
Public Function adjgd(grade As Single)
Select Case grade
Case Is <= 0.0249
adjgd = 0
Case 0.025 To 0.0749
adjgd = 1
Case 0.075 To 0.1249
adjgd = 2
Case Is 0.1249
adjgd = 3
Case Else
adjgd = 0
End Select
End Function

I would like to select on cases with negative values. Anyone able to help?

Thanks in advance







--
M.R. Vanatta