VBA to change tab color if range of cells has any input

[FatalaniSnape]

I have a table of names, phone numbers, emails. There are drop downs in two of the columns, but no formulas.
I need the tab color to change if any information is entered between Cells A2 and G26.
I've found codes for specific values or text, but this needs to be for anything entered.

TIA

 

[Z51]

Try this in that worksheet's code module. Change the sheet name to your sheet name, of course. And you can pick another color index to suit (255 = red, xlAutomatic = no color).

Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.CountA(Range("A2:G26")) > 0 Then
    Sheets("Sheet1").Tab.Color = 255
Else
    Sheets("Sheet1").Tab.Color = xlAutomatic
End If
End Sub