Sub beschleunigen

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 20
End Sub

Diese Routine zeigt mir die Zeile wo ich gerade mit dem Cursur bzw. in der Zelle stehe in einer Hintergrundfarbe an...
Da ich eine Tabelle mit ca. 9500 Zeilen habe ist diese Sub ein wenig langsam es dauert immer ein wenig wenn ich in den Zeilen / Spalten hin und her gehe....
Ist es möglich dieses zu beschleunigen... oder gibt es nur diese Sub für sowas.....
Bin ja kein Profi daher frag ich mal so in den Raum ... DANKE !
Gruss Karlheinz