stuck at vlookup function!!!!

[adr12345]

Sub lkup()
Dim rng As String
rng = Range("A1", Range("A1").End(xlToRight).End(xlDown)).Select
Dim count As Integer
count = Application.WorksheetFunction.Match("City", Sheets("carrierresponse_list").Rows(1), 0)
MsgBox count
Range("B2") = WorksheetFunction.VLookup(Range("A2").Value, Sheets("carrierresponse_list").Range("A1:HS137"), count, 0)
End Sub


I am getting error Run-time error '1004': Unable to get the VLookup property of the WorksheetFunction class


Plss helpp!!!!

 

[jbeaucaire]

Does this work any better?

Sub lkup()
Dim rng As String
Dim count As Integer
 
 rng = Range("A1", Range("A1").End(xlToRight).End(xlDown)).Select
 count = Application.WorksheetFunction.Match("City", Sheets("sheet1").Rows(1), 0)
 MsgBox count
 
 With Range("B2")
    .Formula = "=VLOOKUP(A2, carrierresponse_list!A1:HS137, " & count & ", 0)"
    .Value = .Value
 End With

End Sub