Have you looked at the SELECT CASE statement in VBA. It was created for replacing multiple IF statements.
http://www.ozgrid.com/VBA/select-case.htm or
http://www.databison.com/index.php/v...ment-in-excel/