I am trying to update some fields in my ms-project by pulling some information from excel workbook , but the function lookup doesn't work , I could use Min , Max , sum etc but not vlookup
here is my code

Thank you

Option Explicit

Sub Myloop2()
Dim updatesheet As String
Dim sbw As String
Dim Param As String
Dim fname As String
Dim tsk As task
Dim rg As Range
Dim ws As Sheets
Dim wb As Excel.Workbook
Dim appXLS As Object
Dim entxls As Object

Set appXLS = CreateObject("Excel.Application")

If appXLS Is Nothing Then
MsgBox ("XLS not installed")
End If

fname = ActiveProject.Path & "" & Dir(ActiveProject.Path & "\test1.xlsx")

Set rg = appXLS.Worksheets("testproject").Range("A212")

appXLS.Visible = True

For Each tsk In ActiveProject.Tasks

If tsk.Text11 = "oth" Then

updatesheet = appXLS.Application.WorksheetFunction.VLookup(tsk.WBS, rg, 3, False)

'updatesheet = appXLS.Application.WorksheetFunction.Sum(rg)

tsk.Text12 = updatesheet

End If

Next tsk

End Sub