0 Members and 1 Guest are viewing this topic.
Case Is < CL, Is < CR
Sub test_case() Dim MyNum As Integer Dim aVal As Integer Dim bVal As Integer MyNum = 50 aVal = 25 bVal = 100 Select Case MyNum Case Is < aVal Debug.Print MyNum; "is greater than"; aVal Case Is > 100 Debug.Print MyNum; "is less than"; vBal Case Is < aVal, Is < bVal Debug.Print "OK" End SelectEnd Sub
Case Is < CR, Is < CL