using loop to write directory contents as hyperlinks

[gls2815]

Hi,

I have a looping sub statement that JE wrote that writes the filenames
of all the excel files contained in a directory into the active
workbook. Here it is:
========================
Sub LoopThroughXLS()

Const nMACPATH As String = _
"users:gerardesktop:Bids-Accepted:"
Dim nCount As Long
Dim sFName As String
#If Mac Then
sFName = Dir(nMACPATH, MacID("XLS8"))
#Else
sFName = Dir("*.xls")
#End If
Do While Len(sFName) > 0
Cells(4 + nCount, 2).Value = sFName
nCount = nCount + 4
sFName = Dir
Loop
End Sub
========================
My question is can the resulting filename be turned into a hyperlink
that in turn opens the file in Excel when clicked?

Thanks,

G