geänderte zellen in excel markieren

Sub ZweiTabsVergl_UnterschiedFarbig()
 ->Der Makro vergleicht die Ausgangstabelle mit der
 ->aktuellen Tabelle zellenweise.
 ->In der aktuellen Tabelle werden die Zellen sich
 ->unterscheidenden Zellen farblich markiert
 ->Voraussetzung: beide Tabellen befinden sich
 ->in der aktuellen Mappe
  
 ->Name des Ursprungsblattes (ggf. anpassen)
  Const c_Name_Ursprungstabelle As String = UrsprungsTab
  
 ->Colorindex zum einfärben der unterschiedlichen Zellen
  c_colorindex_diff = 33->hellblau
  
  Dim ws_u As Worksheet, ws_a As Worksheet
  Dim l_row_u As Long, l_col_u As Long
  Dim l_row_a As Long, l_col_a As Long
  Dim l_row As Long, l_col As Long
  
  On Error Resume Next
  
 ->Ursprungsblatt
  Set ws_u = ActiveWorkbook.Worksheets(c_Name_Ursprungstabelle)
  If Err.Number <> 0 Then
    Err.Clear
    MsgBox (Ursprungsblatt nicht in der aktuellen Mappe enthalten)
    GoTo EndeBearbeitung
  End If
  
 ->Vergleichsblatt
  Set ws_a = ActiveSheet
  If ws_u.Name = ws_a.Name Then
   ->Ursprungsblatt aktiv
    MsgBox (Ursprungsblatt ist aktives Blatt & vbLf & _
            Kann nicht mit sich selbst verglichen werden!)
    GoTo EndeBearbeitung
  End If
  
  l_col_u = ws_u.Cells.SpecialCells(xlCellTypeLastCell).Column
  l_row_u = ws_u.Cells.SpecialCells(xlCellTypeLastCell).Row
  l_col_a = ws_a.Cells.SpecialCells(xlCellTypeLastCell).Column
  l_row_a = ws_a.Cells.SpecialCells(xlCellTypeLastCell).Row
  l_col = Application.WorksheetFunction.Max(l_col_u, l_col_a)
  l_row = Application.WorksheetFunction.Max(l_row_u, l_row_a)
  
  For c = 1 To l_col
    For r = 1 To l_row
      If ws_a.Cells(r, c).Value <> ws_u.Cells(r, c).Value Then
        ws_a.Cells(r, c).Interior.ColorIndex = c_colorindex_diff
      End If
    Next
  Next
EndeBearbeitung:
  Set ws_u = Nothing: Set ws_a = Nothing
End Sub