Load all files in a directory

[Greg B...]

I would like to load all my .xls file, How would I do this please.


Thanks again

Greg

 

[Jim May]

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...]

Thanks Jim, just what I wanted

Greg