Sub colortabbasedoncellvalue()
Sheets("Sheet22").Tab.ColorIndex = _
Sheets("sheet25").Range("d3").Interior.ColorIndex
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"John" wrote in message
...
How do I make the worksheet tab color be the same as the color of a cell
in
another worksheet?

Thx for your help, John