Defining Name based on adjacent cell.

[sekar_r24]

Hi.,

I am trying to create name list for a column of cells. my values are in Column A up to specified no of rows (ex:3000 rows), i would like to assign name in B column corresponding rows. For ex: for LenZ in A1, the list name in B2, should be LenZ ( ie same name). i tried a lot but unable to increment the R1C1 value. Can anyone help on this. or anyother work around for this.

Thanks

Sub kre3()
Dim rw As Integer, cl As Integer
rw = 1
cl = 2
If rw = 10 Then ActiveWorkbook.Names.Add Name:=Cells(rw, 1), RefersToR1C1:="=Sheet1!R[" & rw & "]C[" & cl & "]"
rw = rw + 1
End If End Su

 

[Yongle]

How about

Sub CreateNames()
    Dim cel As Range
    For Each cel In Range("A1").Resize(Range("A" & Rows.Count).End(xlUp).Row)
        cel.Resize(, 2).CreateNames Top:=False, Left:=True, Bottom:=False, Right:=False
    Next cel
End Sub

 

[sekar_r24]

Perfect. Thanks a lot.