Sub ColorTabs ()
Schemerige TabName als Koord
x = 1
'Bladen („in afwachting van Lijst“). Activeer
Doe tot Cellen (x, 1). Waarde = ""
TabName = Cellen (x, 1). Waarde
Voor Elk Blad in ActiveWorkbook.Sheets
Als InStr (Sheet.Name, TabName) toen
Sheet.Tab.ColorIndex = 4
Eind als
Daarna
x = x + 1
Lijn
Sub van het eind
'om nauwkeurig te zijn