If you are talking about the code I posted, this example writes the list to
the worksheet at the activecell.

Sub FileListToWorkSheet()
Dim DirName As String

DirName = "C:\Docs\Excel"
ListFilesInDirectory DirName
ActiveCell.Resize(UBound(aFiles), 1).Value = Application.Transpose(aFiles)
End Sub


On Wed, 31 Oct 2007 00:16:30 -0000, dan dungan wrote:

Hi All,

I'm attempting to learn VBA.

So, I copied this procedure into a sheet module. Using debug.print, I
saw the procedure worked.

However, I don't understand how to get the information into a spread
sheet or to print out.

Thanks for your time and insight.

Dan