Excel - DUDA HIPERVINCULO EN MACRO

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

        iCol = iCol + 1

        Cells(iRow, iCol).Select  'selecciono la siguiente columna 

        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=myFile.path, TextToDisplay:=myFile.Name 'creo el hyper le pongo de nombre el nombre del archivo...

        iRow = iRow + 1

    Next

    If IncludeSubfolders Then

        For Each mySubFolder In mySource.SubFolders

            Call ListMyFiles(mySubFolder.path, True)

        Next

    End If

End Sub