Automatisk farvning af ark

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
ArkKode = Target.Value
Select Case ArkKode
    Case 1
    ActiveSheet.Tab.ColorIndex = 1
    Case 2
    ActiveSheet.Tab.ColorIndex = 3
    Case 3
    ActiveSheet.Tab.ColorIndex = 5
    Case 4
    ActiveSheet.Tab.ColorIndex = 10
    Case 5
    ActiveSheet.Tab.ColorIndex = 6
    Case 6
    ActiveSheet.Tab.ColorIndex = 15
    Case Else
    ActiveSheet.Tab.ColorIndex = -4142
End Select
End If
End Sub
'Farvekoder til Interior.Colorindex
      '0        = Tom              1        = Sort
      '2        = Hvid              3        = Rød
      '4        = KnaldGrøn        5        = Blå
      '6        = Gul              7        = Pink
      '8        = Turkis            9        = Rødbrun
      '10        = Grøn            11        = Mørkeblå
      '12        = Olivengul        13        = Violet
      '14        = Blågrøn          15        = Grå 25%
      '16        = Grå 50%          17        = Støvet Blå
      '18        = Blomme          19        = Støvet Lys Gul
      '20        = Blegturkis      21        = Støvet Violet
      '22        = Støvet Lyserød

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arknavn
If Not Intersect(Target, Range("E1:E30")) Is Nothing Then
ArkKode = Target.Value
Arknavn = Target.Offset(0, -3).Value
Select Case ArkKode
    Case 1
    Sheets(Arknavn).Tab.ColorIndex = 1
    Case 2
    Sheets(Arknavn).Tab.ColorIndex = 3
    Case 3
    Sheets(Arknavn).Tab.ColorIndex = 5
    Case 4
    Sheets(Arknavn).Tab.ColorIndex = 10
    Case 5
    Sheets(Arknavn).Tab.ColorIndex = 6
    Case 6
    Sheets(Arknavn).Tab.ColorIndex = 15
    Case Else
    Sheets(Arknavn).Tab.ColorIndex = -4142
End Select
End If
End Sub
'Farvekoder til Interior.Colorindex
      '0        = Tom              1        = Sort
      '2        = Hvid              3        = Rød
      '4        = KnaldGrøn        5        = Blå
      '6        = Gul              7        = Pink
      '8        = Turkis            9        = Rødbrun
      '10        = Grøn            11        = Mørkeblå
      '12        = Olivengul        13        = Violet
      '14        = Blågrøn          15        = Grå 25%
      '16        = Grå 50%          17        = Støvet Blå
      '18        = Blomme          19        = Støvet Lys Gul
      '20        = Blegturkis      21        = Støvet Violet
      '22        = Støvet Lyserød

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrHandler:

Dim Arknavn
If Not Intersect(Target, Range("E1:E30")) Is Nothing Then
ArkKode = Target.Value
Arknavn = Target.Offset(0, -3).Value
Select Case ArkKode
    Case 1
    Sheets(Arknavn).Tab.ColorIndex = 1
    Case 2
    Sheets(Arknavn).Tab.ColorIndex = 3
    Case 3
    Sheets(Arknavn).Tab.ColorIndex = 5
    Case 4
    Sheets(Arknavn).Tab.ColorIndex = 10
    Case 5
    Sheets(Arknavn).Tab.ColorIndex = 6
    Case 6
    Sheets(Arknavn).Tab.ColorIndex = 15
    Case Else
    Sheets(Arknavn).Tab.ColorIndex = -4142
End Select
End If

ErrHandler:
    If Err.Number = 9 Then
    MsgBox "=-= Arket findes ikke! =-=" & vbCrLf & _
            " " & vbCrLf & _
            "Kontroller at Fane navnet er korrekt!" & vbCrLf & _
            " " & vbCrLf & _
            "Eller om Fane eksisterer?"
    Target.Offset(0, -3).Select
    End If

End Sub
'Farvekoder til Interior.Colorindex
      '0        = Tom              1        = Sort
      '2        = Hvid              3        = Rød
      '4        = KnaldGrøn        5        = Blå
      '6        = Gul              7        = Pink
      '8        = Turkis            9        = Rødbrun
      '10        = Grøn            11        = Mørkeblå
      '12        = Olivengul        13        = Violet
      '14        = Blågrøn          15        = Grå 25%
      '16        = Grå 50%          17        = Støvet Blå
      '18        = Blomme          19        = Støvet Lys Gul
      '20        = Blegturkis      21        = Støvet Violet
      '22        = Støvet Lyserød