I have the below in a standard module of a surrogate file xyz.xls:
I open xyz; Run the Macro, then Close xyz;

Sub OpenMyFiles()
Dim sPath As String, sName As String
Dim bk As Workbook
sPath = "C:\My Documents\MyFavoriteFiles\"
sName = Dir(sPath & "*.xls")
Do While sName < ""
Set bk = Workbooks.Open(sPath & sName)
' . . . process bk
' bk.Close Savechanges:=False ' or true
sName = Dir
Loop
End Sub



"Greg B..." wrote in message
...
I would like to load all my .xls file, How would I do this please.


Thanks again

Greg