Auto hyperlink to files from list

Good morning folk

I have the code below to create a list of files in a folder on a sheet,,,,, is there a way to automatically have the file names hyperlinked to the files

Many thanks

JT

Dim iRow

Sub ListFiles()
    iRow = 6
    Call ListMyFiles(Range("C1"), Range("D1"))
End Sub

Sub ListMyFiles(mySourcePath, IncludeSubfolders)
    Set MyObject = New Scripting.FileSystemObject
    Set mySource = MyObject.GetFolder(mySourcePath)
    On Error Resume Next
    For Each myFile In mySource.Files
        iCol = 2
        Cells(iRow, iCol).Value = myFile.Path
        iCol = iCol + 1
        Cells(iRow, iCol).Value = myFile.Name
        iCol = iCol + 1
        Cells(iRow, iCol).Value = myFile.Size
        iCol = iCol + 1
        Cells(iRow, iCol).Value = myFile.DateLastModified
        iRow = iRow + 1
    Next
    If IncludeSubfolders Then
        For Each mySubFolder In mySource.SubFolders
            Call ListMyFiles(mySubFolder.Path, True)
        Next
    End If
End Sub

See if this is something you can work with:

Sub ConvertTxt2Hyperlink()
Dim cCell As Range

For Each cCell In selection.Cells

   If cCell.Hyperlinks.Count = 0 Then
      On Error Resume Next
      ActiveSheet.Hyperlinks.Add _
         Anchor:=cCell, _
         Address:=cCell.Value, _
         TextToDisplay:=cCell.Value
   End If
Next cCell
End Sub

Ron

many thanks for your help..... with one exception the code is doing as it should..... it is producing the list and creating a hyperlink from each file name..... however it is hyperlinking to the folder where the sheet containing the code and list is kept,,, not the folder where the files are stored........

I've been trying to adjust and figure it our myself,, but I'm not having any luck

JT

Dim iRow

Sub ListFiles()
    iRow = 6
    Call ListMyFiles(Range("C1"), Range("d1"))
End Sub

Sub ListMyFiles(mySourcePath, IncludeSubfolders)
    Set MyObject = New Scripting.FileSystemObject
    Set mySource = MyObject.GetFolder(mySourcePath)
    Dim cCell As Range
    
    On Error Resume Next
    For Each myFile In mySource.Files
        iCol = 2
        Cells(iRow, iCol).Value = myFile.Path
        iCol = iCol + 1
        Cells(iRow, iCol).Value = myFile.Name
        iCol = iCol + 1
        Cells(iRow, iCol).Value = myFile.Size
        iCol = iCol + 1
        Cells(iRow, iCol).Value = myFile.DateLastModified
        iRow = iRow + 1
    Next
    If IncludeSubfolders Then
        For Each mySubFolder In mySource.SubFolders
            Call ListMyFiles(mySubFolder.Path, True)
        Next
    End If

For Each cCell In Range("C6:c500").Cells

   If cCell.Hyperlinks.Count = 0 Then
      On Error Resume Next
      ActiveSheet.Hyperlinks.Add _
         Anchor:=cCell, _
         Address:=cCell.Value, _
         TextToDisplay:=cCell.Value
   End If
Next cCell
End Sub

The code I posted uses the exact contents of the referenced cell to create a hyperlink.

Do you have an entry in the Hyperlink Base settings?

File.Properties
...Hyperlink Base -> enter the default hyperlink location here

Note: If Hyperlink Base does not display
...click: Show More Properties