Betinget formmattering af atkfanefarve

Højreklik på arkets fane og vælg vis kode...

Indsæt følgende (ret A1 til den rigtige celle)

Private Sub Worksheet_Calculate()
    Select Case Range("A1").Value
        Case 1 'Rød
            Me.Tab.Color = vbRed
        Case 2
            Me.Tab.Color = vbGreen
        Case 3
            Me.Tab.Color = vbYellow
        Case Else
            Me.Tab.Color = xlNone
    End Select
    Me.Tab.TintAndShade = 0
End Sub

Hi smartoffice.
Dette her kan jeg ikke få til at virke.
Skal koden sættes ind i et modul?
Ib

Højreklik på arkets fane og vælge vis kode og indsæt koden der..

Hej smartoffice.
Har prøvet det men det virker ikke. Jeg bruger excel 2003.
Kan det være derfor?
Ib

Har du nogle formler i dit test regneark... Når du ændre noget så en formel skal genberegnes, så virker det fint.

Jeg har lavet et eksempel og lagt det her http://smartoffice.dk/Tips/Eksperten/Index.asp
Husk dette spørgsmål er nr 949693

Mvh Flemming

Hej smartoffice.
Jeg har hentet dit eksembel men kan ikke ændre det fra en Zi fil til en Zip fil. Hvordan gør man det.
Skal jeg ikke oprette et spørgsmål så du kan få nogle points?
Ib

Prøv fra din mail højreklik på den vedhæftede fil og gem som ZIP