Color Cell When Validation List Changes

I am trying to change the color of a cell to match a selection from a drop down data validation list. There are quite a few "color cells if ......" VBA codes out there, however they don't quite do what I need and I am not experienced enough to figure it out.

The data validation references a named range (list of consultants) on another worksheet within the same workbook. The data validation list needs to be dynamic because people get added or subtracted from the list. So the named range is actually equal to (A1:A100).

I am using Excel 2003, therefore conditional formatting is too limiting. Each company has it's own color. So I defined each company as a named range as well for my VBA code. For example, named range "AR" equals list Architect A, Architect B, Architect C etc.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Cell As Range
Dim Rng1 As Range

On Error Resume Next
Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 1)
On Error Goto 0
If Rng1 Is Nothing Then
Set Rng1 = Range(Target.Address)
Else

This code works for the first name (Architect A) in the named range "=AR". However, when I choose the next name on the drop down list the color in the cell goes away. Also the other named ranges do not change color at all. I am attaching jpegs of the named range and the sheet they are referencing to give an idea of what I would like the sheet to look like.

Add Workbooks only, not silly PDF files with pictures!