That is because it doesn't find the value in Combobox2.text more than
likely.

Try it this way

Dim var as Variant
var = Application.VLookup(ComboBox2.Text, _
Worksheets("Turbine").Range("A67:x127"), 2, False)
if iserror(var) then
Range("I23").Value = Combobox2.Text & " not found"
else
Range("I23").Value = var
End if


--
Regards,
Tom Ogilvy



"monagan " wrote in message
...
(RunTime Error 1004)Unable to get the Vlookup Property of the
WorkSheetFunction Class is the error I get when I try to run

Range("i23", "i23").Value = WorksheetFunction.VLookup(ComboBox2.Text,
Worksheets("Turbine").Range("A67:x127"), 2, False)

It works a few times, then stops


---
Message posted from http://www.ExcelForum.com/