Ciao Roberto
Non so se ho interpretato bene la tua esigenza.
La macro che vedi qui "trasforma" tutti i codici in colonna B (da B4 sino all'ultimo presente) in collegamenti ipertestuali.
Ovviamente i file dei disegni devono essere denominati come i codici; la macro va modificata nel punto che ti ho indicato sostituendo "\Excel\" con il tuo percorso.
vb
Sub CreaCollegamentiIpertestuali()
Dim ur As Long
Dim rng As Range
Dim cel As Range
ur = Cells(Rows.Count, 2).End(xlUp).Row
Set rng = Range("b4:b" & ur)
For Each cel In rng
ActiveSheet.Hyperlinks.Add Anchor:=cel, Address:= _
"\Excel\" & cel.Value & ".pdf" '<===== Modifica il percorso con il tuo
Next cel
End Sub
Alfredo