Extracting data from multiple files

Got it but if someone is ever in the same situtation here is the code:

Sub Extracting_Data()
Dim basebook As Workbook
Dim mybook As Workbook
Dim rnum As Long
Dim FNames As String
Dim MyPath As String
Dim SaveDriveDir As String
Dim Cnum As Integer
Dim cell As Range

SaveDriveDir = CurDir
MyPath = "C:\Documents and Settings\Round2"
'file path
ChDrive MyPath
ChDir MyPath

FNames = Dir("*.xls")
If Len(FNames) = 0 Then
MsgBox "No files in the Directory"
ChDrive SaveDriveDir
ChDir SaveDriveDir
Exit Sub
End If

Application.ScreenUpdating = False
Set basebook = ThisWorkbook
'clear all cells on the first sheet
basebook.Worksheets(1).Cells.Clear

rnum = 1

Do While FNames <> ""
Set mybook = Workbooks.Open(FNames)

' This will add the workbook name in column A if you want
basebook.Worksheets(1).Cells(rnum, "A").Value = mybook.Name

' Copy the cell values from each cell in one row starting in column B
Cnum = 2
For Each cell In mybook.Worksheets(1).Range("B1,B2,B3,B4,B5")
basebook.Worksheets(1).Cells(rnum, Cnum).Value = cell.Value
Cnum = Cnum + 1
Next cell

mybook.Close False
rnum = rnum + 1
FNames = Dir()
Loop

ChDrive SaveDriveDir
ChDir SaveDriveDir
Application.ScreenUpdating = True
End Sub

This site is a life saver

Thank you for sharing your code. Now we can all learn from your solution.

Hi all

Similar to this code above I am trying to get the code to copy a specific named range in each workbook. So instead of copying the contents of cells B1 to B5 my code would reference the named range "Total". Which is a single cell in each workbook.
As I understand I would need to reference the range at the start of the code? Dim rng as Range ? Am I on the right track?

Thanks

Andy I don't think that U are hijacking this thread and it sounds like a reasonable request. So within the context of the above code, instead of "For each cell etc." U would simply do this for sheet1 A1 of the open wb and sheet 1 of the files retrieved ...
HTH. Dave

Many thanks!