Excel - Macro to open all files in SharePoint Library

I need to write a macro to open all the files in a libray on a SharePoint. =
I found the code below which looks very straightforward but I get the error=
that I need to add some references, but can anyone tell me what references=
I need to select to make this code work?

Public Sub ListFiles()
Dim folder As folder
Dim f As File
Dim fs As New FileSystemObject
Dim RowCtr As Integer
RowCtr =3D 1
Set folder =3D fs.GetFolder("\\SP\Path\MorePath\DocumentLibrary\Folder")
For Each f In folder.Files
Cells(RowCtr, 1).Value =3D f.Name
RowCtr =3D RowCtr + 1
Next f
End Sub

As an alternative is there a method that does not require adding references=
? I have also seen suggestions that mapping the sharepoint to a drive lette=
r would be helpful but this is not an optimum solution as many people will =
eventually use this tool and it is not likely that they can all map the sam=
e drive letter.

Any suggestions or tips would be much appreciated.

Win7/Excel 2010

Here is the solution that we have developed:

Sub Execute_Files()
Dim objFSO As Object, objFolder As Object, objFile As Object
Dim Path As String

'   Define paths to folders that contain files to execute

path = "http://blah/blah/blah/blah/"
Application.DisplayAlerts = False
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Path)

'   Loop through the Files in the folder and execute the macro in the
file, then close the file

For Each objFile In objFolder.Files
Workbooks.Open Filename:=Path & objFile.Name
Application.Run ("'" & objFile.Name & "'!macro_name")
Workbooks(objFile.Name).Close savechanges:=False
Next
Application.DisplayAlerts = True
End Sub



John Keith
kd0gd@juno.com