Loop through Named Range - vba

Question

I have a named range for list of report files I have created. They are stored in a folder that matches their file name.
like this - -
List of file is a Named Range called order
a
b
c
and they are stored in a folder like this:
\folder\a\a_support.xls
\folder\b\b_support.xls
\folder\c\c_support.xls
I am trying to copy each xls file into a master sheet. The list is not in alphabetical order so I need to run through the list and import in the order I currently have.
I tried making a loop but I couldn't get my named ranges or objects correct.
How would I make a loop using 'i' to run through my list? I will be using the 'i' value to dynamically reference the directory
here's my code as it stands
Sub Move_reports()
Dim day As String
Dim FromPath As String
Dim i As Long
Dim wsname As String
Dim order As Range
Dim c As Range
day = Sheets("data").Cells(1, 2).Value
FromPath = "\local\shared\"& day &"DOCUMENTS\" & i & "\"
Set c = Worksheets("data").Range(order) _
For Each c In order
If c.Value <> "" Then
wsname = c.Value
Workbooks.Open Filename:= _
FromPath & i & "_support.xls" _
, UpdateLinks:=0
Sheets(i).Select
Sheets(i).Copy After:=Workbooks("SEP_FINAL.xlsm").Sheets("BEG")
ActiveWindow.Close
SaveChanges = True
End If
Next
End Sub

Answer 1

ok, if you have a named range called order to loop through it from top to bottom to keep the order of opening the files you should use something like this in your loop:
Dim rng As Range
Set rng = Worksheets("Sheet1").Range("order").Columns(1) 'change the name of sheet per you need
For i = 1 To rng.Rows.Count
wsname = rng.Cells(i, 1)
Next i
suggestion: you don't need to keep the name and order of the files in a named range because if the list increases then you have to also modify your named range. You can easily pick up the names of whatever number from a sheet column. Let's say you are keeping the names and order in column A of Sheet1 so do this:
Dim rng As Range
Set rng = Worksheets("Sheet1").Range("A1").CurrentRegion.Columns(1)
For i = 1 To rng.Rows.Count
wsname = rng.Cells(i, 1)
Next i

Answer 2

Heres my finished working code for those looking for the same answer as me
Thank you again Lbo!
all thats left is an 'IfError , next i'
Sub Move_reports()
Dim day As String
Dim FromPath As String
Dim i As Integer
Dim wsname As String
Dim rng As Range
day = Sheets("data").Cells(1, 2).Value _
Set rng = Worksheets("data").Range("A2").CurrentRegion.Columns(1)
For i = 2 To rng.Rows.Count
wsname = rng.Cells(i, 1)
FromPath = "\SUPPORT\" & day & "\DOCUMENTS\" & wsname & "\" _
Workbooks.Open Filename:= _
FromPath & wsname & "_support.xls" _
, UpdateLinks:=0
Sheets(wsname).Select
Sheets(wsname).Copy After:=Workbooks("SEP_FINAL.xlsm").Sheets("BEG")
ActiveWindow.Close
SaveChanges = True
Next i
End Sub