Zeilen, Spalten markieren

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(Cells(1, 1), Cells(100, 100)).Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 19
Range(Cells(3, Target.Column), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 19
End Sub

Nun arbeite ich aber in meiner Tabelle mit Zell-Farben, die nicht gelöscht werden dürfen. Es würde auch genügen, die Zeilen, Spalten nur zu markieren (select), aber mit dem Befehl Select anstelle von Interior.ColorIndex = 19 funktioniert es nicht.
Kurz: Nach der Markierung müssen immer wieder die ursprünglichen Zell-Farben vorhanden sein.
Geht das und wie?
Danke und Gruss
Gregor