Conditional Tab Color

[WalkaboutTigger]

Is it possible to set the worksheet's tab color conditionally based upon the value of cells or the result of a function?

If I cannot do this easily, is it possible, via VBA, to use the Tab property of the Worksheet object to set the Color property of the Tab object?

Any and all help would be greatly appreciated.

 

[Fergus]

Something like this, put in the sheet code page for Sheet 1, will turn the tab red if cell A1 is 22. Modify to suit.

Private Sub worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    trigger = Range("A1:A1").Value
    If trigger = 22 Then
        Worksheets(1).Tab.ColorIndex = 3
        Else
        Worksheets(1).Tab.ColorIndex = xlColorIndexNone
    End If
End If
End Sub

HTH