ColorTabs secondario ()
TabName fioco come stringa
x = 1
'Strati (“in attesa della lista„). Attivare
Fare fino alle cellule (x, 1).Value = ""
TabName = cellule (x, 1).Value
Per ogni strato in ActiveWorkbook.Sheets
Se InStr (Sheet.Name, TabName) allora
Sheet.Tab.ColorIndex = 4
Concluder se
Dopo
x = x + 1
Ciclo
Sommergibile dell'estremità
'per essere esatto