The following code works as needed with one problem - RNAME is only loading Values in the first ActiveCell range. The value of RNAME is not changing to reflect the "next cells" value in the For Next loop.
' Range("A1").Select
y = 1
x = 1
' Position to last Column of WorkSheet.
Selection.End(xlToRight).Select
z = ActiveCell.Column
'Select Range.
Range(Cells(x, y), Cells(x, z)).Select
For Each Cell In Selection
RName = ActiveCell.Offset(1, 0).Value
.
. 'Other work here (Need ActiveCell value)
.
Next Cell
(RName is not Changing after next cell???
' Range("A1").Select
y = 1
x = 1
' Position to last Column of WorkSheet.
Selection.End(xlToRight).Select
z = ActiveCell.Column
'Select Range.
Range(Cells(x, y), Cells(x, z)).Select
For Each Cell In Selection
RName = ActiveCell.Offset(1, 0).Value
.
. 'Other work here (Need ActiveCell value)
.
Next Cell
(RName is not Changing after next cell???