Hi,

Here is the basic idea, but you will need to modify it to meet your
conditions and cell addresses.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range("A1"))
If Not isect Is Nothing Then
'your code for testing conditions in

ActiveWorkbook.Sheets("Sheet2").Tab.ColorIndex = 42
End If
End Sub

If this helps, please click the Yes button.

Cheers,
Shane Devenshire




"Al" wrote in message
...
Does anyone know of a way to conditionally format the color of a worksheet
tab based on certain conditions in one or more cells? I'm (my company ) is
using excel 2002