Skift farve på fanebladstekst

Har ikke lige tid til at skrive en vba,
men - JA, det kan man godt i vba !
Håber andre kommer forbi og hjælper !

Har bokset lidt vidre og pt. kan jeg nu ændre farven i alle 4 faneblades tekst når der indtastes en værdi i tekstboksen under faneblad 1.

Men spørgsmålet er stadig hvordan jeg kun ændrer farve i aktuelle faneblad.???
----------------------------------------------------
Private Sub TextBox1_Change()
If TextBox1.Value <> "" Then
Ordre.Caption = "Produktionsordre " & TextBox1.Value
Ordre.ForeColor = vbGreen
Else
Ordre.Caption = "Produktionsordre 1"
Ordre.ForeColor = vbBlack
End If
End Sub

Ud fra søgning i div. excel-forums på nettet kan det vist ikke lade sig gøre.

Lukker spørgsmålet.