不能取得类worksheetfunktion的vlookup属性，想跨工作表提取信息，请问这是怎么回事

sub commandbutton2_click()
dim i as integer
for i = 1 to1000
this workbook.worlsheets("sheet4").Cells(1,2) = Application.worksheetFunktion.Vlookup(thisworkbook.worksheets("sheet4").Cells(1,1),thisworkbook.workshteets("产品关键特性表").Range("A:U"),21,0)
next
end sub
在VLOOKUP那一行报错，不能取得vlookup属性
想从sheet2(产品关键特性表)里提取数据到sheet4 (sheet4)
求解答