If then vba

[bsquad]

this sounds dumb and can't really find what I am looking for online; but is there an alternative to wasting two code lines after THEN for this below. Is there some character>> I have also tried using AND between e and z - it doesn't work.

                            If x = 12 Or x = 13 Or x = 15 Or x = 16 Or x = 17 Or x = 18 Or x = 23 Or x = 25 Then
                                    z = 5
                                    e = 2

 

[Jonmo1]

The number of lines used by a code is not a factor in that code's 'Quality'

That said, you can do this

z = 5: e = 2

Strictly speaking, that is still 2 lines of code. Just written in 1 line.


However, I would use a select case structure instead of the multiple ORs

Select Case x
    Case 12, 13, 15, 16, 17, 18, 23, 25
        z = 5
        e = 2
End Select

 

[bsquad]

I knew it was something simple. Thank you