Use Cell Date In Hyperlink Address

I'm trying to automate the insertion of the current date in a cell of a separate workbook, then hyperlink that date to a file saved by the previous sub...

The code I'm trying is;


Sub LnkFile()

' Find TakeOff date cell in JobLog
Workbooks("Job Log.xls"). Sheets("Job Log").Activate
WorksheetFunction.VLookup(Jnum, Range("A2:H1000"), 11).Cell.Select

' Insert current date
ActiveCell.Value = CurrentDate

' Add hyperlink to file/folder
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="DestFile"
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 5
End With

End Sub

It errors at "WorksheetFunction.VLookup" with "unable to get vlookup properties".
The cell it's locating is empty...