I need to change cell values according to code entered into another cell:

For example:

If 'A' is entered into cell A1, I would like B1 to contain 'Richard' and cell C1 to contain 'Bartram'

If 'B' is entered into cell A1, I would like B1 to contain 'Lee' and cell C1 to contain 'Farquar'

If 'C' is entered into cell A1, I would like B1 to contain 'Andrew' and cell C1 to contain 'Gutteridge'

There are 21 codes for Cell A (21 possible names for B1,C1) and approx 2000 rows in column A to input a code.

I know I can't use an IF funtion, but could anybody help with a Macro?

Best wishes,

James