Run Conditional Format Macro without direct cell input

Hello, attached is an example of a file that is used to track status of multiple teams. Each team has a tab and a macro that changes cell color based on direct cell input. The 3rd tab in this spreadsheet is used to quickly roll up all of the teams into one sheet. The cells values are references to the cells in each of the individual tabs.

The problem I am having is making the formating apply in the rollup tab. It is set up to look for direct cell input to run the macro, but that isn't how the rollup worksheet is updated. What's the best way to modify this code to make it work?

Here is the code for the rollup worksheet.

Private Sub Worksheet_Change(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
        Set Rng1 = Union(Range(Target.Address), Rng1)
    End If
    For Each Cell In Rng1
        Select Case Cell.Value
        Case vbNullString
            Cell.Interior.ColorIndex = xlNone
            Cell.Font.Bold = False
        Case "Blue"
            Cell.Interior.ColorIndex = 5
            Cell.Font.ColorIndex = 5
        Case "Green"
            Cell.Interior.ColorIndex = 10
            Cell.Font.ColorIndex = 10
        Case "Yellow"
            Cell.Interior.ColorIndex = 6
            Cell.Font.ColorIndex = 6
        Case "Red"
            Cell.Interior.ColorIndex = 3
            Cell.Font.ColorIndex = 3
        Case "n/a"
            Cell.Interior.ColorIndex = 15
            Cell.Font.ColorIndex = 15
        Case Else
            Cell.Interior.ColorIndex = xlNone
        End Select
    Next
     
End Sub