Rangeに含まれるセルを展開するにはCellsを使う

Excelのヘルプにあったので転載

myRange という名前の列を調べて、セルの値が 1 つ上のセルの値と同じ場合は、重複するデータを持つセルの参照を表示します。 

Set r = Range("myRange")
For n = 1 To r.Rows.Count
    If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
        MsgBox "Duplicate data in " & r.Cells(n + 1, 1).Address
    End If
Next n