Tabbladen kleuren met macro

[Marco9999]

Hallo,

Ik heb een werkmap met een stuk of 30 tabbladen welke regelmatig door collega's ingevuld moeten worden.
Om duidelijk te maken welke tabbladen "klaar" zijn zou ik dmv twee icoontjes op ieder tabblad een macro op willen starten wat de tabkleur groen of rood kleurt.
Zo is dan aan de groene tabs te zien welke tabbladen "klaar" zijn.

Nu kan ik wel aparte macro's voor ieder tabblad maken (zie onderstaande macro's), maar dat moet toch ook met 1 macro voor de hele werkmap kunnen?

Sub Tabgroen()
'
' Tabgroen Macro
'

'
    Sheets("Blad 1").Select
    With ActiveWorkbook.Sheets("Blad 1").Tab
        .Color = 5287936
        .TintAndShade = 0
    End With
    Sheets("Blad 1").Select
End Sub
Sub Tabrood()
'
' Tabrood Macro
'

'
    Sheets("Blad 1").Select
    With ActiveWorkbook.Sheets("Blad 1").Tab
        .Color = 255
        .TintAndShade = 0
    End With
End Sub

Iemand een iedeetje hoe?

Alvast mijn hartelijke dank!

 

[edmoor]

Probeer deze eens.
Dubbelklik op de gewenste kleur:
Bekijk bijlage dblc.xlsm

Code in de ThisWorkbook module:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Select Case Target.Address(0, 0)
        Case "B2":  Sh.Tab.Color = 255:     Cancel = True   [COLOR="#008000"]'Rood[/COLOR]
        Case "B3":  Sh.Tab.Color = 5287936: Cancel = True   [COLOR="#008000"]'Groen[/COLOR]
    End Select
End Sub

Dat helpt je vast op weg.