In diesem Beispiel werden geänderte Zellen in blauer Farbe dargestellt.
Private Sub Worksheet_Change(ByVal Target as Range) Target.Font.ColorIndex = 5 End Sub