Opening a series of excel files from cell references

Hello,

I want to use this script to open a series of excel files, take column C and make a single spreadsheet from it. The filenames are stored in column a of Data 2007.xls but I keep having a problem with "Workbooks.Activate Filename:=FN". Is there something else I can use? I am a beginner to VB programming and all help would be much appreciated.

Thanks!



Sub Macro8()

Dim i As Integer
Dim y As Integer
Dim row As Integer
Dim FN As String

i = 1
y = -1
row = -1
FN = Range("A1")

Do

i = i + 1
y = y + 1
row = row + 1

Windows("Data 2007.xls").Activate
Range("A1").Select
ActiveCell.Offset(row, 0).Select
FN = ActiveCell

'' To open

Workbooks.Activate Filename:=FN
Columns("C:C").Select
Selection.Copy
Windows("Total_2007.xls").Activate
Columns("C:C").Select
ActiveCell.Offset(0, y).Select
ActiveSheet.Paste

Loop Until i = 51

End Sub

Welcome to the forum.

Please take a few minutes to read the Forum Rules, and then edit your post to wrap your code with Code Tags.