Case VB - tasmia9/VBA GitHub Wiki

Sub simple_case()

Select Case Range("B3").Value

Case 1 To 200 Range("C3").Value = "Good"

Case 0 Range("C3").Value = Null

Case Is > 200 Range("C3").Value = "Excellenet"

Case Is < 0 Range("C3").Value = "Bad"

End Select

End Sub