How To add Hyperlink to all files in a folder
 

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


Thanks in advance for help

How To add Hyperlink to all files in a folder
 

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

"Salman Qureshi" wrote:

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


Thanks in advance for help
.

How To add Hyperlink to all files in a folder
 

I meant

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

Mike

"Mike H" wrote:

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

"Salman Qureshi" wrote:

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


Thanks in advance for help
.