VBA If = ?

calendar_today Asked Jul 17, 2014
thumb_up 11 upvotes
history Updated April 16, 2026

Question posted 2014 · +7 upvotes

I’m fairly new to VBA, and I can’t find an easy way to test if any of the specified variables equal a specified value. The below seems to work, but is there an easier way to do it?

If variable1 = 1 Or variable2 = 1 Or variable3 = 1 Or variable4 = 1 Or variable5 = 1 Then End If

I’ve also tried the following, with no luck.

If (variable1 Or variable2 Or variable3 Or variable4 Or variable5) = 1 Then End If

Accepted answer +11 upvotes

You can use select case 🙂

Sub Sample()
    Dim variable1, variable2, variable3, variable4, variable5

    variable1 = 1: variable2 = 1: variable3 = 1: variable4 = 1: variable5 = 1

    Select Case 1
        Case variable1, variable2, variable3, variable4, variable5
            MsgBox "One of them is equal to 1"
        Case Else
            MsgBox "none of then is equal to 1"
    End Select
End Sub

Top vba Q&A (6)

+11 upvotes ranks this answer #36 out of 81 vba solutions on this site .
vba