Color cells in a row based on unique text that matches text on a different worksheet

I have a list of names, which serves as a look-up table, with a fill-in color applied to the cell (i. e., "Doe, Jane A" and her fill-in cell color is some shade of green). Other names have different colors. The lookup table has names in Column A and team names in column B.

I have other worksheets that have the name of "Doe, Jane A" in a cell. I want to color the row of data where this name appears with the fill-in green color copied from the list of names. I'd prefer to not use Conditional Formatting to accomplish this since the names and colors in the look-up table will change and I'd rather not have to apply new VBA code whenever the list of names is amended (hence my desire to have the colors copied from the look-up table).

I was trying to accomplish changing the fill-in color in one cell using an If statement as below, but I get #NAME?. In the example shown below, cell B2 is the cell where the name appears on the worksheet and 'Team Lookup Chart' is the aforementioned lookup table. I was hoping to use the Index function because of the changeable nature of the data entered into the lookup table.

Thanks in advance. Any help would be greatly appreciated!

=IF(ISNUMBER(SEARCH("Doe, Jane A",B2)), (INDEX('Team Lookup Chart'!$A:$B, (A2.Interior.Color.paste), 1)))

The following code does what I want but it is very slow (for obvious reasons since it uses two loops). The code assumes TeamLookupChart has a name with color in Column A while ResourceAssignments sheet has a corresponding name in Column B. I'm looking into seeing if I can use the Scripting.Dictionary to write code that works faster. Any suggestions are welcome:

Sub ColorRA()
    Dim WS As Worksheet
    Dim LastCell As Range
    Dim LastCellRowNumber As Long
    Dim WS2 As Worksheet
    Dim LastCell2 As Range
    Dim LastCellRowNumber2 As Long
    Dim i As Long
    Dim j As Long
     
    Application.ScreenUpdating = False
    
    Set WS = Worksheets("TeamLookupChart")
    With WS
        Set LastCell2 = .Cells(.Rows.Count, "A").End(xlUp)
        LastCellRowNumber2 = LastCell2.Row
    End With
    
    Set WS = Worksheets("ResourceAssignments")
    With WS
        Set LastCell = .Cells(.Rows.Count, "A").End(xlUp)
        LastCellRowNumber = LastCell.Row
    End With
    
ActiveWorkbook.Sheets("ResourceAssignments").Activate
For i = 2 To LastCellRowNumber 'Number of rows of data in ResourceAssignments
    For j = 2 To LastCellRowNumber2 'Number of rows of data in TeamLookupChart
        If Range("B" & i).Value = Worksheets("TeamLookupChart").Range("A" & j).Value Then
            ActiveWorkbook.Sheets("TeamLookupChart").Activate
            Worksheets("TeamLookupChart").Range("A" & j, Cells(LastCellRowNumber, 1)).Copy
            ActiveWorkbook.Sheets("ResourceAssignments").Activate
            Worksheets("ResourceAssignments").Range("A" & i, Cells(LastCellRowNumber, 23)).PasteSpecial Paste:=xlPasteFormats
        End If
    Next j
Next i
    
    Application.ScreenUpdating = True
        
End Sub

Sorry but I can't figure out how to upload a test file

Thanks AliGW. I think the test file is now attached

Thanks PCI! A little tweaking and it works like a charm! How can I modify the following section of code to paste the color into the row with an offset of 1 cell to the left?

HTML Code: 

PCI - Perfect! Thanks for all of the help!