Macro to format multiple files from one directory

I need to change the format of a large number of spreadsheets that are all in one directory.

Is there a way to automatically open each file in turn - run a macro to make formatting changes, save and close the spreadsheet and open the next one.

Ideally I want to avoid having to manually type in a a long list of filenames.

In the past I was able to do this using an array but do not recollect what I actually did.

Please help.

Regards


Sandy

sxv102

Sub FormatBooks()
Dim sDir As String
'delete duplicate report files
sDir$ = Dir("c:\Temp\*.xls")
Do
If sDir = "" Then
Exit Do
Else
Workbooks.Open Filename:="c:\Temp\" & sDir
your code to format here
End If
sDir = Dir
Loop

End Sub