'Fixad typo på sinande tabname
UnderClearColors ()
Start = 0
mydefault = 16
För varje täcka i ActiveWorkbook.Sheets
Om Sheet.Name = ”PE” därefter
Start = 1
mydefault = Sheet.Tab.ColorIndex
ElseIf (start = 1) därefter
Om (Sheet.Name <> ”DTP”) därefter
Sheet.Tab.ColorIndex = mydefault '(inte sure, om denna är din standardflik färgar - du kan måste att ändra denna numrerar),
ElseIf Sheet.Name = ”DTP” därefter
Gå ut suben
Avsluta om
Avsluta om
Därefter
Avsluta suben