Недопустимая внешняя процедура при объявлении массива

Question

Я объявляю массив в Excel VBA:

Option Explicit

Public Const Mname As String = "MyPopUpMenu"
Public ClickType(5) As Variant
ClickType = Array("www.series.com", "www.lists.com", "www.datatypes.com", "www.expressions.com") // getting error at this line


Sub DeletePopUpMenu()
    ' Delete the popup menu if it already exists.
    On Error Resume Next
    Application.CommandBars(Mname).Delete
    On Error GoTo 0
End Sub

Я объявил его в соответствии с документами, но не уверен, почему он выдает ошибку.

Примечание: я хочу использовать массив глобально, поэтому я не включил его в Sub