I have the below code to list the files in a directory. What I want the code to do is add hyperlinks to the files listed, so I can click the link and open the file direct.
Sub ListFiles()
Columns(1).Clear
Dim myRow As Integer
Dim myFile As String
myRow = 1
myFile = Dir(InputBox("Enter Directory"))
Do Until myFile = ""
Cells(myRow, 1) = myFile
myRow = myRow + 1
myFile = Dir
Loop
End Sub
Any ideas will be much appreciated.
Cheers
Ryan UK :wink:
Sub ListFiles()
Columns(1).Clear
Dim myRow As Integer
Dim myFile As String
myRow = 1
myFile = Dir(InputBox("Enter Directory"))
Do Until myFile = ""
Cells(myRow, 1) = myFile
myRow = myRow + 1
myFile = Dir
Loop
End Sub
Any ideas will be much appreciated.
Cheers
Ryan UK :wink: