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
Bookmarks