Automatic tab colour change when cell populated

[Bazz1974]

I having been going mad trying to find a macro to easily change the worksheet tab colors as each worksheet is populated in a set cell.
say if I entered text or date in C1, the tab colour on that worksheet turns red, otherwise is green.

I have tried so many different code and nothing will work.
There are 25 worksheets in the workbook and all numbered from 1 to 25 plus 2 others named "Lists" and "Summary" (these 2 dont need the tab colours. When you open the workbook, Id like tabs 1 to 25 to be green and once C1 has a entry, the tab for that sheet turns red. This is so the next person opening the book knows which tab has no entries as yet.

Appreciate if someone can help here.

 

[Fluff]

If you change all the tab colours to what they should be, you can then use this

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   Select Case Sh.Name
      Case "Lists", "Summary"
      Case Else
         If Target.Address(0, 0) = "C1" Then
            Sh.Tab.Color = IIf(Target.Value = "", rgbGreen, vbRed)
         End If
   End Select
End Sub

This needs to go in the ThisWorkbook module.

 

[Bazz1974]

Thankyou so much. that worked a treat. I'll send it out to the gang and report back if any other issues.

 

[Fluff]

You're welcome & thanks for the feedback.