Betinget formatering vba

I kolonne K har jeg lavet en validering med en liste man skal vælge fra: I gang, Ordre, Afsluttet, Død, Tabt. Afhængigt af hvad man vælger, skal rækken udfyldes med et mønster. Det virker fint hvis man vælger fra listen, men hvis man skriver og trykker Enter, bliver rækken ikke udfyldt,hvorfor??? Jeg vil have det til at virke sådan at rækken bliver udfyldt uanset om man vælger fra listen eller skriver og trykker Enter, Tab eller Pil op/ned/hen. Kan det lade sig gøre?


Min kode:

Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveCell.Column = 11 Then
  With Worksheets("SYSTEMER")
        With Target
            Select Case ActiveCell.Value
                Case "Ordre"
                    For Kol = 1 To 22
                    ActiveCell.EntireRow.Cells(1, Kol).Interior.Pattern = xlGray8 'lægger baggrundsfarve på rækken fra A til V
                    Next Kol
                Case "Afsluttet"
                    For Kol = 1 To 22
                    ActiveCell.EntireRow.Cells(1, Kol).Interior.Pattern = xlGray16
                    Next Kol
                Case "Død"
                    For Kol = 1 To 22
                    ActiveCell.EntireRow.Cells(1, Kol).Interior.Pattern = xlGray25
                    Next Kol
                Case "Tabt"
                    For Kol = 1 To 22
                    ActiveCell.EntireRow.Cells(1, Kol).Interior.Pattern = xlGray50
                    Next Kol
                Case Else
                    For Kol = 1 To 22
                    ActiveCell.EntireRow.Cells(1, Kol).Interior.Pattern = xlNone
                    Next Kol
            End Select
        End With
  End With
End If
End Sub