Excel VBS Datenvergleich

Hallo zusammen,

möchte ein Excel Makro in VB, das mit die Gleichheit von 2 Zellen in einer Meldung ausgibt.
hab da Knoten im Hirn


Beispiel:


Die Abfrage ist eine Schleife,

Sub Gleiche_EAN ()
Dim CompareRange As Variant, x As Variant, y As Variant

Set CompareRange = Range("C1:C5")

For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 1) = x

'hier soll die msgbox rein ->

Next y
Next x

End Sub

Gruss
Rocco