Name range

[Svgmassive]

I am trying to loop through names ranges to set up their values etc.I am using an array to store the name ranges i tried different methods i can't get it to work.Thanks

dim H_NAMES() as string
dim i as long
ReDim H_NAMES(1 To 4)

H_NAMES(1) = "test"
H_NAMES(2) = "east"
H_NAMES(3) = "west"
H_NAMES(4) = "north"
For i = LBound(H_NAMES) To UBound(H_NAMES)
Debug.Print Range(H_NAMES(i)).Address
next

 

[jim may]

What are you trying to do with this statement?

Debug.Print Range(H_NAMES(i)).Address

 

[Svgmassive]

I was just testing it to see if it works.Once it does then i am going to populate the ranges with their respective header names.Month,year,day etc.

 

[jim may]

Sub Foo()
Dim H_NAMES() As String
Dim i As Long
ReDim H_NAMES(1 To 4)

H_NAMES(1) = "test"
H_NAMES(2) = "east"
H_NAMES(3) = "west"
H_NAMES(4) = "north"
For i = LBound(H_NAMES) To UBound(H_NAMES)
'*******  All code to this point works OK ****
'*****  I dumped the output to the Cell Range(A1:A4)  ***


ActiveSheet.Cells(i, 1).Value = H_NAMES(i)
Next
End Sub

 

[Svgmassive]

hi jim
what i am trying to do is to populate name ranges "east" etc. with header just in case the user insert columns and rows etc.i can still get the name range locations

that's why i need the range stuff to work.Thanks

Debug.Print Range(H_NAMES(i)).Address

 

[Svgmassive]

hi jim I found out what my problem was the first name in the array was spelt wrong that made the loop fail i tried on error resume next that is when i found out what the problem was. this worked.Thanks

Range(H_NAMES(i)) = H_NAMES(i)

 

[jim may]

Maybe (Change to suit)

Sub Foo()
Dim H_NAMES() As String
Dim i As Long
ReDim H_NAMES(1 To 4)

H_NAMES(1) = "test"
H_NAMES(2) = "east"
H_NAMES(3) = "west"
H_NAMES(4) = "north"
For i = LBound(H_NAMES) To UBound(H_NAMES)
'******  All code to this point works OK ****

ActiveWorkbook.Names.Add H_NAMES(i), RefersTo:=Cells(1, i)
Next
End Sub