Herbers Excel/VBA-Archiv

Problem:
Ich habe eine Excel-Datei, die aus zwei Sheets (links unten die Reiter oder Blätter) besteht: Tabelle-Alt und Tabelle-Neu.
Jeder Zeileninhalt von Spalte F (Tabelle-Alt) mit jedem Zeileninhalt von Spalte F (Tabelle-Neu) vergleichen.
Bei Übereinstimmung soll nur der jeweilige Eintrag von der Spalte W (Tabelle-Alt) in die Spalte W (Tabelle-Neu) übertragen werden.

Makro von Nike:

Sub Datenabgleich()
Dim wksAlt As Worksheet
Dim wksNeu As Worksheet
Dim lngZeil As Long
Set wksAlt = ActiveWorkbook.Worksheets("Tabelle-Alt")
Set wksNeu = ActiveWorkbook.Worksheets("Tabelle-Neu")

lngZeil = 1

Do
If wksAlt.Cells(lngZeil, 6) = wksNeu.Cells(lngZeil, 6) Then
wksNeu.Cells(lngZeil, 23) = wksAlt.Cells(lngZeil, 23)
End If
lngZeil = lngZeil + 1
Loop Until wksAlt.Cells(lngZeil, 6) = ""

End Sub

Problem:
Wenn ich das Makro starte kommt kein Fehler und es passiert leider auch nichts!
Was stimmt hier nicht?

Danke