Got it.....Now, one last question. The section below....

'Add a new workbook with one sheet
Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
Cnum = 1

Can you add the sheet to an existing workbook instead of a new workbook?
"Ron de Bruin" wrote:

Download the example workbook



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Mike Lewis" wrote in message ...
Hello,

I tried cutting and pasting, and I get an error that takes me back to the
top with yellow. Here is what I cut and paste. Sub RDB_Merge_Data() turned
yellow and Get_File_Names highlighted blue.

Thoughts?

Sub RDB_Merge_Data()
Dim myFiles As Variant
Dim myCountOfFiles As Long

myCountOfFiles = Get_File_Names( _
MyPath:="C:\Documents and
Settings\lewism11\Desktop\Survey Subfile", _
Subfolders:=False, _
ExtStr:="*.xls", _
myReturnedFiles:=myFiles)

If myCountOfFiles = 0 Then
MsgBox "No files that match the ExtStr in this folder"
Exit Sub
End If

Get_Data _
FileNameInA:=True, _
PasteAsValues:=True, _
SourceShName:="", _
SourceShIndex:=1, _
SourceRng:="A1:G1", _
StartCell:="", _
myReturnedFiles:=myFiles

End Sub

"Ron de Bruin" wrote:

Start here
http://www.rondebruin.nl/copy3.htm

Try the add-in



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Mike Lewis" wrote in message ...
Hello, I need some help. I have a survey that has one spreadsheet for each
customer. I also have a master excel spreadsheet that these need to roll up
to. Does anyone have suggestions of how I can roll up just the data from
these spreadsheets to the master spreadsheet. I am not sure that I want all
the spreadsheets to actually roll into the master spreadsheet or just the
data. I would love to be able to do this with a macro as this will be a
frequent survey.

Thanks in advance for your help.