Sub ColorTabs()
Dim TabName As String
x = 1
'Sheets("Pending List").Activate
Do Until Cells(x, 1).Value = ""
TabName = Cells(x, 1).Value
For Each Sheet In ActiveWorkbook.Sheets
If InStr(Sheet.Name, TabName) Then
Sheet.Tab.ColorIndex = 4
End If
Next
x = x + 1
Loop
End Sub
' to be exact