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

--
Regards,
Tom Ogilvy

"Dkso" wrote in message
...
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