Create Hyperlinks

[Arpanakumar]

Hello Experts.

I have a folder in which we have team's files may be in thousands, so wanted to make my our team life simple for which i need have all the files existing in folder with hyperlinks so that navigation can be easier.

Thanking you in Advances.
Arpana...

 

[Monty]

Try this..Similar to your last question with Hyperlinks..

Sub Create_Hyperlink()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\MONTY\Desktop\") 'Change path here
i = 1
For Each objFile In objFolder.Files
    Range(Cells(i + 1, 1), Cells(i + 1, 1)).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        objFile.Path, _
        TextToDisplay:=objFile.Name
    i = i + 1
Next objFile
End Sub

I just learnt forum rules if you have a similar questions can continue in the same thread...Please follow.

 

[Arpanakumar]

Monty

Works FANTASTIC!!!!!!!!!

Thanks for letting me know the rules which i will follow now.

Wanted a quick solution so created a new thread for my question though it is on similar lines, going forward will take care..

 

[Monty]

Am Happy that i could help you.

i was given feedback when am new to this forum to follow rules..So it happens no Worries chill.

@Monty