Zur Übersichtlichkeit - "wo ist gerade der Cursor" dient folgendes Makro

ein kleiner Nachteil:
wenn die Füllfarbe der Zelle manuell gesetzt wurde, wird diese Farbe gelöscht !

Code in "DieseArbeitsmappe"

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static OldCell As Range
If Not OldCell Is Nothing Then
    OldCell.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6
Set OldCell = Target
End Sub