Getting Information From A Large Set Of Files

I'm trying to do is take a 3 by 40 area from each file, add it together into one report. I've been browsing through some other examples, but i can't seem to get any of them to work. Heres the


Sub clamdata()

Dim sht As Worksheet
Dim sFolder As String

Dim count As Long
Dim data(3, 50) As Long
Dim sum1(3, 50) As Long
Dim count2 As Long
Dim vaFileName As Variant

How do I have it select the sheet i want (Eyelet Faults) and then get the data from the ranges I want (B7 to D47), add them, and then output that data to one file?

With this code, it gives me a general error message (and doesn't highlight anything):

Runtime error '91'
object variable or with block variable not set

I originally started with this idea:



Set FSO = CreateObject("Scripting.FileSystemObject")
sFolder = "C:DataReportsWORsWidget"
Set wbBook = ThisWorkbook
Set wsData = wbBook.Worksheets("Data")
lngRows = wsData.Range("A65536").End(xlUp).Row