For Each cell in Range("MyNamedRange") msgbox "Address = " & cell.address msgbox "Row=" & cell.row Next