i need the code for doing this..please help
i= 2 to 20 (variable)
ActiveWorkbook.Names.Add Name:="abc", RefersTorange= cells(1,1),cells(i,1)

i = 5
Set myrange = Range("A1", Cells(1, i))
ActiveWorkbook.Names.Add Name:="abc", RefersTo:="=" & myrange.Address

"ezil" wrote:

i need the code for doing this..please help
i= 2 to 20 (variable)
ActiveWorkbook.Names.Add Name:="abc", RefersTorange= cells(1,1),cells(i,1)

Better to use an offset formula such as =offset($a$1,0,0,counta($a:$a)) but
to answer.

Sub namerng()
mc = "b"
lr = cells(Rows.Count, mc).End(xlUp).Row
Range(cells(1, mc), cells(lr, mc)).Name = "abc"
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ezil" wrote in message
...
i need the code for doing this..please help
i= 2 to 20 (variable)
ActiveWorkbook.Names.Add Name:="abc", RefersTorange=
cells(1,1),cells(i,1)

Range("A2").Resize(i - 1).Name = "abc"

--
__________________________________
HTH

Bob

"ezil" wrote in message
...
i need the code for doing this..please help
i= 2 to 20 (variable)
ActiveWorkbook.Names.Add Name:="abc", RefersTorange=
cells(1,1),cells(i,1)