I have got the following code to look up the equivalent timestamp for a partivular serialised record in some data recording. However this returns an error 1004 stating that it was unable to get the Vlookup property of the WorkSheetFunction class. As I'm new at this, I am uncertain as to what the issue is given that this approach appears to work for similar functions and it also is close to the MS example.

Thanks in advance

Alec

Dim Time_Min As String, Time_Max As String, Ser_No_Min As String, Ser_No_Max As String
Dim EquivTime As Long
Dim LookupRng As Range



Ser_No_Min = filtertimedialog.Ser_No_Min.Text

Set LookupRng = Worksheets(Chart_Source_Sheet).Range("A:B")
If Ser_No_Min <> ActiveSheet.Range("D9").Text Then
EquivTime = Application.WorksheetFunction.VLookup(Ser_No_Min, LookupRng, 2)
filtertimedialog.Time_Min.Text = EquivTime
ActiveSheet.Cells(9, 2) = EquivTime
End If