Select Case confusion

[Glory]

From VBA Help:

Select Case Number    ' Evaluate Number.
Case 1 To 5    ' Number between 1 and 5, inclusive.
    Debug.Print
End Select

From my module:

    Select Case Iterations
        Case 1 Or 6
            SetProps = 6
        Case 2 Or 7
            SetProps = 24
        Case 3 Or 8
            SetProps = 42
        Case 4 Or 9
            SetProps = 60
        Case 5 Or 10
            SetProps = 78
    End Select

"Iterations" is successfully filling with the desired value, but all the case statements are being skipped even though there are matches.

Incidentally, if I do this instead:

    Select Case True
        Case Iterations = 1 Or Iterations = 6
            SetProps = 6
        Case Iterations = 2 Or Iterations = 7
            SetProps = 24
        Case Iterations = 3 Or Iterations = 8
            SetProps = 42
        Case Iterations = 4 Or Iterations = 9
            SetProps = 60
        Case Iterations = 5 Or Iterations = 10
            SetProps = 78
    End Select

The code works fine, but I thought the whole point of 'Select Case' was to evaluate the testexpression once instead of multiple times.

 

[Glory]

Solved.

Case 1, 6 is what I was looking for.

But, why doesn't "Or" work here? Can anybody explain that?

Edit: Also, is there a way to use an operator in the expressionlist argument following a Case statement?

eg Case <3

 

[VoG]

Try

Case Is < 3

 

[Ruddles]

Case 1, 6 is what I was looking for.

But, why doesn't "Or" work here? Can anybody explain that?

Yes. It's because Case 1 Or 6 is equivalent to Case (1 Or 6) which is equivalent to Case (110 Or 001) in binary which is equivalent to Case 7. Try ?1 or 6 in the VBA Immediate window.

 

[Ruddles]

Oops, that should have read Case (001 Or 110).

 

[Glory]

Trippy.

Thanks guys.