Sub ProcessFiles()Dim sFolder As String
Dim FSO As Object
Dim fldr As Object
Dim Folder As Object
Dim file As Object
Dim Files As Object
Dim oWb As Workbook

Set FSO = CreateObject("Scripting.FileSystemObject")

sFolder = "C:\myTest"
If sFolder < "" Then
Set Folder = FSO.GetFolder(sFolder)
Set Files = Folder.Files
For Each file In Files
If file.Type = "Microsoft Excel Worksheet" Then
Set oWb = Workbooks.Open FileName:=file.Path
KennysMacro
End If
Next file

End If ' sFolder < ""

End Sub


--

HTH

RP

"KENNY" wrote in message
...
Hi,

I'd like to open each workbook in a folder, make a certain
change, save the file, close it, and go to the next...

Help?!