Hi Steve,

You may want to check out my "List Files" Excel add-in.
It lists all files in a directory and sub-folders.
Each file is hyperlinked. Plus there are other features
and options. Free upon direct request.
Comes with a one page install/use Word.doc file.
Remove XXX from my email address.

Regards,
Jim Cone
San Francisco, USA
XX

"Steve Mackay" wrote in message oups.com...
Hi,
I searched the newsgroup and found some code that gives me hyperlinks
to files in a directory. In addition to linking to files in the
directory, is it possible to link to files in all of the sub-folders of
the directory?
For instance, if I have a folder C:\Steve\ with several files and some
sub folders (C:\Steve\Folder1\ and C:\Steve\Folder2\ etc.) each with
several files, I want to be able to run a macro that would make links
to all the files just by inputting the first directory C:\Steve\. Is
this possible?
Ideally, I would like a new worksheet for each folder having the same
name as that folder, but this is more of a bonus. The part above is
what I really need.
Here is the code I have so far (thanks to Bill Manville):

Sub HyperlinksToDirectory()
' puts hyperlinks to each of the files in a directory of your choice
' into the active sheet starting at the active cell
Dim stDir As String
Dim stFile As String
Dim R As Range
Set R = ActiveCell
stDir = InputBox("Directory?", , Default:=CurDir())
stFile = Dir(stDir & "\*.*")
Do Until stFile = ""
R.Hyperlinks.Add R, stDir & "\" & stFile, , , stFile
Set R = R.Offset(1)
stFile = Dir()
Loop
End Sub
Thanks,
Steve Mackay