Sub processWorkbooks()
'for this to compile
'set a reference to Microsoft Scripting Runtime
Dim fso As Object
Dim topFolder As Scripting.folder
Dim wbFile As Scripting.file
Dim wb As Workbook
'enter your path to the folder containing the workbooks
Const top As String = "D:\users\ties\Documents\MrExcel\982030"
Set fso = CreateObject("Scripting.FileSystemObject")
Set topFolder = fso.GetFolder(top)
For Each wbFile In topFolder.Files
Workbooks.Open wbFile
Set wb = Workbooks(Workbooks.Count)
'... process wb
wb.Close False 'don't save changes
Next wbFile
End Sub