Как я могу зациклить vlookup, который суммирует данные на нескольких листах

Question

Я пытаюсь создать макрос, который ищет значение из первых листов на нескольких листах, а затем суммирует возвращаемые значения.Одна из переменных заключается в том, что количество листов, которые я просматриваю, не является статичным и будет иметь разные имена.

Это то, что я пробовал, но я думаю, что мне не хватает некоторых основных понятий о том, как приложениеФункции .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