Find celle og marker den

Hej
I A1 indtaster jeg et tal, når jeg taster enter hopper den automatisk til den celle hvor tallet optræder første gang. Det virker fint.
Jeg har lavet noget andet VBA der farver rækken med gult og gråt, men farverne vises først når jeg taster enter igen, hvordan får jeg det til at virke når jeg "rammer" cellen?
På fanen
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Application.ScreenUpdating = False
    x = Target.Row
        Cells.Interior.ColorIndex = 0
        Rows(2).Interior.ColorIndex = 19
    Rows(x).Interior.ColorIndex = 15
    Cells(x, 1).Interior.ColorIndex = 6
    Cells(x, 6).Interior.ColorIndex = 6
    Cells(x, 8).Interior.ColorIndex = 6
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Call FindCelle
    End If
    ActiveCell.Activate
End Sub

I modul
Sub FindCelle()
    Cells.Find(What:=Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
End Sub