Add name to range

[MOONShadow]

In order to perform automatic matrix operation I want to add name to a series of column...Something like :
R1C1:R10C1 = name "C_1"
R1C2:R10C2 = name "C_2"
R1C3:R10C3 = name "C_3"

The code should look like this:

For i=1 to 3
ActiveWorkbook.name.Add Name = "C_" & i, RefersToR1C1 ="=Sheet1!R1C & i : R10C & i "
Next i

Thanks for you help.

I find it....
For i=1 to 3
ActiveWorkbook.Names.Add Name:="C_" & i, RefersToR1C1:=Range(Cells(1, i), Cells(10, i))
Next i