Hi,

Right click your sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub
If Target.Address = "$R$3" Then
If Target.Value = "Closed" Then
Application.EnableEvents = False
ActiveSheet.Tab.ColorIndex = 41
Application.EnableEvents = True
End If
End If
End Sub

Mike

"akemeny" wrote:

What (if any) Macro can I use to change the color of the Tab when a cell
contains a specific word.

For example:

When Cell R3 = Closed the Tab changes to blue