One way would be to use the procedure below.
It requires you to have two Range names.

Put your selected test date in say A1 and name it "MyDate". e.g.
17/08/2006 (that's a UK style date in case it's confusing!)

Put the folder which contains your files in say B1 and name it "My
Folder". e.g. "C:\test"

It also assumes that there is a consistent naming convention to your
workbooks. i.e. workbook1.xls, workbook2.xls so that it does not open
any other files. Change this as appropriate. At the moment it looks
for the first 8 characters of the name, i.e. "workbook". This is case
sensitive.

If you only have your required files and the master Summary workbook
in the folder then the If.. Then test could be changed to If File.Name
M<>"Summary"

Put the same field headings from your workbooks in the Summary
workbook starting in column A. Change the procedure if necessary from
A65536 to whichever column contains the extracted records.

Sub ExtractDateRecords()
Dim oFSO
Dim oMyFolder As Object
Dim Files As Object
Dim File As Object
Dim Mydate As String
Dim MyWb As Workbook
Dim Tempwb As Workbook

   Set MyWb = ActiveWorkbook
   Mydate = Range("mydate")
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   Set oFSO = CreateObject("Scripting.FileSystemObject")
   Set oMyFolder = oFSO.GetFolder(Range("Myfolder"))

   For Each File In oMyFolder.Files
       If Left(File.Name, 8) = "workbook" Then
           Workbooks.Open Filename:=File.Path
           Set Tempwb = ActiveWorkbook
           Range("D1").AutoFilter Field:=4, Criteria1:="<=" & Mydate

Range("D1").CurrentRegion.Offset(1,0).SpecialCells(xlCellTypeVisible).Copy
           MyWb.Activate

Range("a65536").End(xlUp).Offset(1,0).PasteSpecial(xlPasteAll)
           Tempwb.Close
       End If
   Next File
   
   Set oFSO = Nothing
   Application.ScreenUpdating = True
End Sub

HTH
__
Richard Buttrey
Grappenhall, Cheshire, UK
__________________________