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