fname = dir("C:\path1\*.xls")
do while fname < ""
set wkbk = workbooks.open("C:\path1\" & fname)
' process workbook
wkbk.close SaveChanges:=False ' or true
fname = dir()
Loop

--
Regards,
Tom Ogilvy


Brian wrote in message
...
How do I open up I folder and then open and close each file in that folder
consecutively? I am tring this:
Do Until FileName = today

Workbooks.Open FileName:= _
"Folder / FileName.xls"
Sheets("Sheet Name").Select
Range("N19").Select
Selection.Copy
ActiveWindow.Close
Windows("Window Name.xls").Activate
Range("B2").Select
ActiveSheet.Paste
Range("B3").Select

Loop