How du Case x twice? (Select Case)

Hi again!

I tried you ex but didn't work - It only writes Albert and not Avery. Something spec. I need to think at?

Thnx!

Originally Posted by Norie

You could do it like this, which will return an array with the 2 names based on Ex.

Function Namex(Ex)

    Select Case Ex
        Case A
            Namex = Array("Albert", "Avery")
        Case B
            Namex = Array("Bernard", "Bob")
        Case C
            Namex = Array("Cris", "Charles")
        Case D
            Namex = Array("David", "Derek")
    End Select 

End Function