Вопрос : Измените цвет платы если имя платы появляется в список

Это будет Кодий, котор я должен изменить цвет платы если он появляется в список, то, оно работаю отлично для просто электронная таблица где платы названы a, b, c, d, и подобием, но я имею workbook где плата содержит номер в скобках после значения которое находится в списке (плата посмотрит как 123z4567-1 (1) и которые оценивают в списке будут 123z4567-1).  Я только хочу покрашенную плату если он появляется в этот список, то, любую помощь что вы можете предложить? class= " lineNumbers " >

1 >

Sub ColorTabs " prettyprint " " class= id= " codeSnippet820703 >
 

  
  class= " ясное " > 

    Related: 
    
title= " href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26335659.html Get " qRelatedChild " " class= 2 платами освобожданное цвета платы на всех платах между 2 tabs
  

Ответ : Измените цвет платы если имя платы появляется в список

Sub ColorTabs ()
Тусклое TabName как шнур

x = 1

'Листы («в ожидании списка»). Активируйте
Не сделать до клеток (x, 1).Value = ""

  TabName = клетки (x, 1).Value

Для каждого листа в ActiveWorkbook.Sheets
Если InStr (Sheet.Name, TabName) после этого
 Sheet.Tab.ColorIndex = 4
Закончитесь если
Затем

  x = x + 1
 
Петля
Подводная лодка конца


'быть точно