Nothing Happened. Do I need to insert the ****start*** and ***end*** line as
well?

"Harald Staff" wrote:

Hi

Open the VB editor in Excel (F11 or similar).
Insert Module.
Paste this into it:
'***************** start ***********************
Sub Test()
Call ListWordFiles("C:\Temp")
End Sub

Sub ListWordFiles(Folder As String)
Dim NextFile As String
Dim L As Long
On Error Resume Next

NextFile = Dir(Folder & "\*.do*")
Do Until NextFile = ""
L = L + 1
Cells(L, 1) = Folder & "\" & NextFile
ActiveSheet.Hyperlinks.Add _
anchor:=Cells(L, 1), _
Address:=Folder & "\" & NextFile
Cells(L, 2) = FileDateTime(Folder & "\" & NextFile)
NextFile = Dir()
Loop
End Sub
'********************* end *******************

Change the text "C:\Temp" to your real folder name. Return to Excel and run
the macro Test.

HTH. Best wishes Harald

"jrwaguespack" skrev i melding
...
I have a file in Microsoft Word that has over 5,000 Word Documents in it.
I
want to copy only the filenames into an Excel Spreadsheet, so that I will
have a list of all of the documents in an Excel Spreadsheet. If anyone
has
any guidance, it would be greatly appreciated.