Неверный вызов процедуры или аргумент при использовании коллекции

Question

У меня есть коллекция внутри Init метода, который создается в событии открытия Excel:

Option Explicit

Public Const Mname As String = "MyPopUpMenu"
Public NavigatorType As Variant
Public NavigatorUrl As New Collection

Sub Init()
    NavigatorType = "Series" ' Set default url type
    Set NavigatorUrl = New Collection
    NavigatorUrl.Add "https://www.series.com", "Series"
    NavigatorUrl.Add "https://www.lists.com", "Lists"
    NavigatorUrl.Add "https://www.datatypes.com", "Datatypes"
    NavigatorUrl.Add "https://www.expressions.com", "Expressions"
End Sub

Когда я нажимаю кнопку ActiveX, я вызываю openNavigatorUrl:

btnFindSeries_MouseDown метод находится внутри листа

Public Sub btnFindSeries_MouseDown(ByVal button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    If button = 1 Then
        openNavigatorUrl
    ElseIf button = 2 Then
        CreatePopUpMenu
    End If
End Sub

метод openNavigatorUrl:

Sub openNavigatorUrl()
    MsgBox NavigatorUrl(NavigatorType) // getting error here
End Sub

Я не уверен, что здесь не так? Я получаю ошибку: Invalid procedure call or argument

Answer 1

Я исправил это, обновив Key вот так:

navigatorUrl.Add "https://www.series.com", Key:="Series"
navigatorUrl.Add "https://www.lists.com", Key:="Lists"
navigatorUrl.Add "https://www.datatypes.com", Key:="Datatypes"
navigatorUrl.Add "https://www.expressions.com", Key:="Expressions"