You gave NO detail but this will change tab color to number entered in cell
d1.
Right click sheet tabview codeinsert this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$D$1" Then Exit Sub
Me.Tab.ColorIndex = Target
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Thiago" wrote in message
...
Is there a way to automatically change the tab color depending on the
value
of a cell