Dynamic Hyperlinks

Hi

Try following code. I assumed list of files in Sheet1, Column A and starts from Cell "A2". If not, you can update it accordingly. I hope it will help. Cheers!!!

Sub Add_Hyperlink()
    
Dim Lrow As Integer
Dim iR As Integer

Lrow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    
    For iR = 2 To Lrow
    
        If Cells(iR, 1) <> "" Then
    
            Sheet1.Hyperlinks.Add Anchor:=Cells(iR, 1), _
            Address:="C:\Users\Myself\Documents\Data Files\" & Cells(iR, 1).Value & ".pdf", _
            TextToDisplay:=Cells(iR, 1).Value

        End If

    Next iR

End Sub