Microsoft Project - como puedo mejorar esta formula

como puedo mejorar esta formula????????


IIf([Número18]=1;"1A";IIf([Número18]=2;"2A";IIf([Número18]=3;"3A";IIf([Número18]=4;"4A";IIf([Número18]=5;"5A";IIf([Número18]=6;"6A";IIf([Número18]=7;"10A";IIf([Número18]=8;"11A";IIf([Número18]=9;"12A";IIf([Número18]=10;"28A";IIf([Número18]=11;"27A";IIf([Número18]=12;"26A";IIf([Número18]=13;"13A";IIf([Número18]=14;"14A";IIf([Número18]=15;"15A";IIf([Número18]=16;"7A";IIf([Número18]=17;"8A";IIf([Número18]=18;"9A";IIf([Número18]=19;"16A";IIf([Número18]=20;"17A";IIf([Número18]=21;"18A";IIf([Número18]=22;"19A";IIf([Número18]=23;"20A";IIf([Número18]=24;"21A";IIf([Número18]=25;"22A";IIf([Número18]=26;"23A";IIf([Número18]=27;"24A";IIf([Número18]=28;"25A";IIf([Número18]=29;"30B";IIf([Número18]=30;"14B";IIf([Número18]=31;"13B";IIf([Número18]=32;"12B";IIf([Número18]=33;"11B";IIf([Número18]=34;"10B";IIf([Número18]=35;"9B";IIf([Número18]=36;"8B";IIf([Número18]=37;"7B";IIf([Número18]=38;"6B";IIf([Número18]=39;"5B";IIf([Número18]=40;"4B";IIf([Número18]=41;"3B";IIf([Número18]=42;"2B";IIf([Número18]=43;"1B";"")))))))))))))))))))))))))))))))))))))))))))

Poniendo
Choose([Número18];"1A";"2A";"3A"..............), como tantas opciones tengas en Número18