This syntax also works in Excel 2000:

Sub abtest4()
x = 4
Select Case x
Case Is = 2, Is = 4
MsgBox x
End Select
End Sub

--
Regards,
Bill Renaud