Vlookup语法和MsgBox错误

Question

我希望使用活动单元作为参考，使用vlookup从另一个工作表返回值。我已经设置了我的表数组，这似乎工作正常。

我运行宏并没有任何反应 - 没有错误，最后的消息框将不会显示。我知道活动单元格匹配我引用的表中的值，因此不应该有N / A错误。

然后，最终目标是在单击分配了此宏的按钮后，使用具有姓氏和名字的Msgbox。

Sub ContactInfo()

Dim name As String
Dim ArrayRange As Variant
Dim ActCell As Variant

Set ActCell = ActiveCell.Value

Sheets("results").Select
ArrayRange = Sheets("Results").Range(Range("L1"), Range("L1").SpecialCells(xlLastCell))

Lastname = Application.WorksheetFunction.VLookup(ActCell, ArrayRange, 3, False)
Firstname = Application.WorksheetFunction.VLookup(ActCell, ArrayRange, 2, False)

MsgBox Lastname & Firstname


End Sub