Changing the colour of a tab based on a cell value

**lauz125** · 05-29-2013, 08:05 AM

Hi,

Does anyone have the code I need to use in order to change the colour of a worksheet tab based on a cell value? There are probably about 50 worksheets, and if the value in cell A2 is 0 I would like it to change colour. If it is not zero I would like it to stay as it is, with no colour on the tab. The value in cell A2 will be formula driven.

Thanks in advance

**dilipandey** · 05-29-2013, 08:18 AM

Hi Lauz125,

welcome to the forum.

Try below code:-

Sub DILIPandey()
'tab color change
For Each Sheet In ActiveWorkbook.Sheets
    Sheet.Select
    If Range("a2").Value = 0 And Range("a2").Value <> "" Then
    ActiveSheet.Tab.Color = 255
    End If
Next
End Sub

Regards,
DILIPandey
<click on below * if this helps>