Pergunta : Mudar a cor da aba se o nome da aba aparece na lista

Este é o código que eu tenho que mudar a cor de uma aba se aparece em uma lista, ele trabalho muito bem para os spreadsheets simples onde as abas são nomeadas a, b, c, d, e semelhante, mas eu tenho um manual de instruções onde a aba contenha um número entre parênteses após o valor que estará na lista (a aba olhará como 123z4567-1 (1) e que avaliam na lista serão 123z4567-1).  Eu quero somente a aba colorida se aparece nesta lista, toda a ajuda que você pode oferecer? class= " lineNumbers " >

1 do >

Sub codeBody ColorTabs do " prettyprint " " do class= do id= " codeSnippet820703 do >
 " desobstruído " de 

class= > " desobstruído " do 

soluções >Related 
class= 
title= " do href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26335659.html do Get do " qRelatedChild " " do class= de 2 abas livrado da cor da aba em todas as abas entre 2 tabs

Resposta : Mudar a cor da aba se o nome da aba aparece na lista

ColorTabs secundário ()
TabName não ofuscante como a corda

x = 1

'Folhas (“durante a lista”). Ativar
Fazer até as pilhas (x, 1). Valor = ""

  TabName = pilhas (x, 1). Valor

Para cada folha em ActiveWorkbook.Sheets
Se InStr (Sheet.Name, TabName) então
 Sheet.Tab.ColorIndex = 4
Terminar se
Em seguida

  x = x + 1
 
Laço
Submarino da extremidade


'para ser exato