VBA kode (ark farve)

Hvis du vil have nogle andre farver end Excel predefinerede ideer om rød,gul,blå,grøn, så kan du ændre dem til RGB også.

Sub exp_spm1041258()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        Select Case ws.Range("N1").Value
            Case 1: ws.Tab.Color = vbRed
            Case 2: ws.Tab.Color = vbYellow
            Case 3: ws.Tab.Color = vbGreen
            Case 4: ws.Tab.Color = vbBlue
            Case 5: ws.Tab.Color = RGB(255, 153, 0)
            Case Else: ws.Tab.Color = False
        End Select
    Next ws
End Sub

Hej Flemming
Hvor skal koden placeres for at virke?
Jeg har prøvet at indsætte koden under arket, i et modul og i denne projektmappe, ingen af stederne kan jeg få koden til at virke.

Hej Flemming
Ignorer #2, troede at når jeg åbnede fil, så ville ark fanerne være farvelagt.
Kan vba koden laves, så farver ark fanerne ved åbning af fil.

Hej Flemming
1000 tak for koden, den virker perfekt. Fik den til at virke ved fil åbning :-)

Private Sub Workbook_Open()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        Select Case ws.Range("N1").Value
            Case 1: ws.Tab.Color = vbRed
            Case 2: ws.Tab.Color = vbYellow
            Case 3: ws.Tab.Color = vbGreen
            Case 4: ws.Tab.Color = vbBlue
            Case 5: ws.Tab.Color = RGB(255, 153, 0)
            Case Else: ws.Tab.Color = False
        End Select
    Next ws
End Sub