Cuestión : Cambiar el color de la lengüeta si el nombre de la lengüeta aparece en lista

Éste es el código que tengo que cambiar el color de una lengüeta si aparece en una lista, él trabajo muy bien para las hojas de balance simples donde las lengüetas se nombran a, b, c, d, y similares, pero tengo un libro de trabajo donde la lengüeta contiene un número entre paréntesis después del valor que estará en la lista (la lengüeta parecerá 123z4567-1 (1) y que valoren en la lista sean 123z4567-1).  ¿Quiero solamente la lengüeta coloreada si aparece en esta lista, cualquier ayuda que usted puede ofrecer? class= " lineNumbers " >

1 del >

Sub codeBody ColorTabs del " prettyprint " del class= del id= " codeSnippet820703 " del >
 " claro " de 

class= > " claro " del 

soluciones >Related 
class= 
el title= " del href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26335659.html del  se libra de color de la lengüeta en todas las lengüetas entre 2 tabs

Respuesta : Cambiar el color de la lengüeta si el nombre de la lengüeta aparece en lista

ColorTabs secundario ()
TabName dévil como secuencia

x = 1

'Hojas (“hasta que finalice lista”). Activar
Hacer hasta las células (x, 1).Value = el ""

  TabName = células (x, 1).Value

Para cada hoja en ActiveWorkbook.Sheets
Si InStr (Sheet.Name, TabName) entonces
 Sheet.Tab.ColorIndex = 4
Terminar si
Después

  x = x + 1
 
Lazo
Submarino del extremo


'para ser exacto