Error 9, Subscripe valt buiten het bereik

[Ronald1947]

Beste mensen,

Ik loop tegen een irritante foutmelding op die ik maar kan debuggen. Ik heb een formulier gemaakt. Bij het initialiseren wordt de volgende routine opgeroepen:
Private maContacts As Variant
Private Sub UserForm_Initialize()
maContacts = Blad4.ListObjects("Cases").DataBodyRange.Value 'HIER TREEDT DE FOUT OP
FillContacts
End Sub

De routine verwijst naar een werkblad Blad4(Wachtlijst). Verder komen in het werkblad ook nog Blad1 (Vrijwilligers), Blad3 (Tijdelijk) en Blad6(Leeg) voor.
In dit werkblad Blad4(Wachtlijst) zit een range 'Cases'. De bedoeling is dat uit deze range gegevens worden opgeroepen die later in een listbox te zien zijn. Maar zo ver kom ik niet.
Wie kan mij op weg helpen?

Met vriendelijke groet,
Ronald

 

[Warme bakkertje]

Zit er een Named Range in of een echte Tabel zoals de code suggereert.

 

[Ronald1947]

Zit er een Named Range in of een echte Tabel zoals de code suggereert.

Dat is een snelle reactie!
Ik heb via Formules -> Namen beheren een gebied 'Cases' aangemaakt. Ik neem aan dat dit een Named Range is....
Met vriendelijke groet,
Ronald

 

[Warme bakkertje]

Private maContacts As Variant
Private Sub UserForm_Initialize()
maContacts = Blad4.Range("Cases").Value 'HIER TREEDT DE FOUT OP
FillContacts
End Sub

 

[Ronald1947]

Private maContacts As Variant
Private Sub UserForm_Initialize()
maContacts = Blad4.Range("Cases").Value 'HIER TREEDT DE FOUT OP
FillContacts
End Sub

Hartstikke bedankt Rudi!!!