Hyperlink Problem

Hi,

Here is my code I couldn't get it working

Dim DevNum As String
Dim fPath As String
Dim fName As String

Dev_Num = rn.Value
fPath = Application.ActiveWorkbook.Path
fPath = fPath & "\mapa\"
fName = Dev_Num & ".pdf"

ActiveCell.Offset(, 16).Value = Hyperlink.Add --> I'm stuck here !

How to put full path to cell like hyperlink ?

Thanks,
Jan.