VBA Schleife für mehrere Spalten durchfü

Sub Auswertung_Header()
Sheets("Vergleich Header").Select
Dim Zelle As Range
For Each Zelle In Range("A3:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If Zelle  "" Then
If Range("A2").Value  Zelle.Value Then GoTo error
End If
Next
If 1 = 2 Then
error:
MsgBox "Die Spalten Stimmen nicht überein"
End If
End Sub