DO CASE ... gehts auch einfacher ?

in einer Angebotsmaske existiert eine Maske mit einem Projektleiterkürzel. Nun gibt es 20 Mitarbeiter und die ganzen CASE Anweisungen blähen den CODE total auf.

wert = ActiveCell.Value
ziel = ActiveCell.Offset(0, -2).Value & ActiveCell.Offset(0, -1).Value & ActiveCell.Offset(0, 0).Value & _
ActiveCell.Offset(0, 1).Value & ActiveCell.Offset(0, 2).Value
Select Case wert

Case 1
MkDir "y:\Angebote\@01-Meyer\" & ziel
Case 2
MkDir "y:\Angebote\@02-Müller\" & ziel

usw.
Kann ich mir diesen ganzen Kram nicht irgendwie vereinfachen indem ich den Ordnernamen z.B. "@01-Meyer" in eine Variable speichere.

Ich hoffe ich habe mich verständlich ausgedrückt.

Danke

Nico