how to give variable range

[ezil]

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)

 

[Joel]

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

 

[Don Guillett]

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

 

[Bob Phillips]

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