vlookup yerine xlookup(çaprazara) yazılı bilirmi

[ertmer]

Sub Kırtasiye()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Range("F2:R10000").ClearContents
yol = "'" & ThisWorkbook.Path & "\" & "[2010 tıbbi sarf.xlsx]" & "Kırtasiye'!R1C3:R10000C4"
For i = 2 To [C10000].End(3).Row
Cells(i, "F") = _
Application.ExecuteExcel4Macro("IFERROR(Vlookup('Kırtasiye'!R" & i & "C3 ," & yol & ",2,0),"""")")
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox " B i t t i ", vbInformation, ""
End Sub

vlookup yerine xlookup la formül nasıl yazılır, işlem(hesaplamalar) çok uzun sürüyor nasıl hızlandıra bilirim?