我如何循环一个vlookup以汇总多个工作表中的数据

Question

我正在尝试创建一个宏，该宏从多个工作表的第一工作表中查找一个值，然后对返回的值求和。一个变量是我要查找的工作表数量不是静态的，并且将具有不同的工作表名称。

这是我尝试过的方法，但是我认为我缺少关于Application.vlookup的功能的一些核心概念。

Sub lookupSum()
    Dim myVlookupResult As Long
    Dim myTableArray As Range
    Dim myVlookupSum As Long
    Dim i As Integer
    Dim count As Integer

    count = Sheets.count
    i = 2
    Do While i <= count
        Sheets(1).Select
        With Worksheets(i)
            Set myTableArray = .Range("A:N")
        End With

        myVlookupResult = Application.vlookup(Range("A2"), myTableArray, 5, False)

        myVlookupSum = myVlookupSum + myVlookupResult
        i = i + 1
    Loop

    MsgBox myVlookupSum

End Sub