simple tab color change based on any entry of any sheet

[esrv303]

I have multiple sheets with various names. User would like tab color to change to (example:red) if ANY entry is made to any cell on that sheet. I have no code experience with excel....thanks

 

[esrv303]

Do you want the tab colour removed if you clear any cell?

Thanks for your patience....let me ask a different way...
If I open my design workbook with multiple sheets....let's say I make 5 changes to one of my sheets....sheet tab is red.
Now if I clear 3 or 4 of those entries, sheet tab remains red, but if I clear all 5 (back to the start) , sheet tab will return to no color

 

[mumps]

I would have to use a helper cell to keep track of the number of changes you make. What is the last used column in your sheets?

 

[esrv303]

I would have to use a helper cell to keep track of the number of changes you make. What is the last used column in your sheets?

Appears none of the sheets extend out to BA

 

[mumps]

Try:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    If Target <> "" Then
        Range("BC1").Value = Range("BC1").Value + 1
        ActiveSheet.Tab.Color = vbRed
    Else
        Range("BC1") = Range("BC1") - 1
        If Range("BC1") = 0 Then
            ActiveSheet.Tab.Color = xlNone
        End If
    End If
    Application.EnableEvents = True
End Sub

 

[esrv303]

Try:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    If Target <> "" Then
        Range("BC1").Value = Range("BC1").Value + 1
        ActiveSheet.Tab.Color = vbRed
    Else
        Range("BC1") = Range("BC1") - 1
        If Range("BC1") = 0 Then
            ActiveSheet.Tab.Color = xlNone
        End If
    End If
    Application.EnableEvents = True
End Sub

Hmm? sorry, I appear to be getting out of my league. However I did return to your original code which worked well...but now it doesn't work??
Here it is again from your post. thanks

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Tab.Color = vbRed
End Sub

 

[mumps]

Try closing and restarting Excel.

 

[esrv303]

Try closing and restarting Excel.

That did it!! Thanks much for the help and patience. I will just open file and "save as" a new file b4 editing.....then when I reopen the original file, the tabs will already be white>

 

[mumps]

You are very welcome.