Shortening my code

[Needsomehelp10]

Hey guys,

Is there a way to shorten the following code so that I do not have to write or Range ("A1") = every time I wanna add an or statement? Thanks for the help in advance.

ElseIf Range("A1") = "Location 1" Or Range("A1") = "Location 2" Or Range("A1") = "Location 4" Or Range("A1") = "Location 5" Or Range("A1") = "Location 6" Or Range("A1") = "Location 7" Then do blah blah

 

[Jonmo1]

Just going to put this out there.

Shorter does NOT mean Better.
Don't change code 'just to make it shorter'


Anyway..

You can use a Select Case structure..

Select Case Range("A1").Value
    Case "Location 1", "Location 2", "Location 4", "etc."
        blah blah
End Select

 

[Rick Rothstein]

Shorter does NOT mean Better.
Don't change code 'just to make it shorter'

Anyway..

You can use a Select Case structure..

Select Case Range("A1").Value
    Case "Location 1", "Location 2", "Location 4", "etc."
        blah blah
End Select

Look at that, you made it shorter... and better.