alter as needed:
Public Sub CreateHypersFromCells()
Dim vFile, vName, vVendor, vDate, vInvoice
Const kDIR = "c:\temp\"
Range("A2").Select
While ActiveCell.Offset(0, 1).Value <> ""
'use path in cell to create hyperlink
vVendor = ActiveCell.Offset(0, 1).Value
vInvoice = ActiveCell.Offset(0, 3).Value
vFile = kDIR & vVendor & vInvoice & ".pdf"
'If FileExists(vFile) Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=vFile, TextToDisplay:=vFile
'End If
ActiveCell.Offset(1, 0).Select 'next row
Wend
End Sub
Bookmarks