How To add Hyperlink to all files in a folder

  • Thread starter Thread starter Salman Qureshi
  • Start date Start date
S

Salman Qureshi

I have more than 700 pdf files in a folder.How i hyperlink all files
in one go?


Thanks in advance for help
 
Hi,

Try this code. If you have files other than PDF and you dont want those
files use this line

Dir(MyPath & "*.Pdf")
in place of
activefile = Dir(MyPath)

Sub Add_Links()
Dim x As Long
x = 1
Application.DisplayAlerts = False
'Change this to your directory
MyPath = "C:\"
activefile = Dir(MyPath)
Do While activefile <> ""
ActiveSheet.Hyperlinks.Add Anchor:=Cells(x, 1), _
Address:=MyPath & activefile, TextToDisplay:=activefile
activefile = Dir()
x = x + 1
Loop
Application.DisplayAlerts = True
End Sub

Mike
 
I meant

use this line
activefile = Dir(MyPath & "*.Pdf")
instead of
activefile = Dir(MyPath)

Mike
 
Back
Top