Try this

Put all these in the module for sheet "Section 1"
The tab is black unless at least one of the cells has display format color 255
It checks whenever any value in Section 1 changes



Private Sub Worksheet_Activate()
    Call TabColour
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Call TabColour
End Sub

Sub TabColour()
For Each cel In Range("F8:AC47")
    If cel.DisplayFormat.Interior.Color = 255 Then
        Sheets("Section 2").Tab.Color = 255
        Exit Sub
    Else
        Sheets("Section 2").Tab.Color = 0
    End If
Next cel
End Sub