Verschillende kleuren in excel via VB

[Maartenv87]

Ik heb dus in VB een scriptje dat mij kleuren gaat toekennen in excel.

Option Compare Text 'A=a, B=b, C=c, D=d, ... Z=z
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Cell As Range
Dim Rng1 As Range
     
    On Error Resume Next
    Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 1)
    On Error GoTo 0
    If Rng1 Is Nothing Then
        Set Rng1 = Range(Target.Address)
        Else
        Set Rng1 = Union(Range(Target.Address), Rng1)
    End If
    For Each Cell In Rng1
        Select Case Cell.Value
            Case vbNullString
                Cell.Interior.ColorIndex = xlNone
                Cell.Font.Bold = False
            Case "A"
                Cell.Interior.ColorIndex = 3
                Cell.Font.Bold = True
            Case "B"
                Cell.Interior.ColorIndex = 4
                Cell.Font.Bold = True
            Case "C"
                Cell.Interior.ColorIndex = 5
                Cell.Font.Bold = True
            Case "D"
                Cell.Interior.ColorIndex = 6
                Cell.Font.Bold = True
                
            Case Else
                Cell.Interior.ColorIndex = xlNone
                Cell.Font.Bold = False
        End Select
    Next
 
End Sub

Nu deze code werkt goed wanneer ik in excel een A of B typ en op enter duw. Maar werkt niet wanneer er een A of B vanuit een ander tabblad komt via bijvoorbeeld =Analyseordenen2!L8.
Weet iemand hoe ik zou kunnen maken dat hij dit ook in gaat kleuren?

Alvast bedankt..