Runtime Error '1004'

[Dean]

Error message given is "Unable to get the Vlookup property of the
WorksheetFunction class"

I have a Combobox that selects an item in a list, this item is selected
then
I receive the error message.

Help please.

Thanks
Dean

 

[Dean]

to add to this (as I'm sure it will affect the answer), the list is a
list of Dates.

 

[Tom Ogilvy]

Entries in a combobox are strings, so it sounds like Vlookup can't find the
match (a string won't match a date)

Dim results as Variant
results = Application.Vlookup(cDate(combobox1.Value),
Range("Sheet5!A1:F365"),4,False)
if iserror(results) then
msgbox combobox1.Value & " was not found"
else
msgbox results " is the result"
End if