VBA Runtime Error using ListBox Control on Userform

Good morning all,

Can someone please explain to me why it gives me an error in this code

Private Sub ListBox1_Click()
Dim say As Long, a As Byte




For a = 0 To 40
Controls("textbox" & a + 1) = ListBox1.Column(a)
Next




Sheets("Data").Range("A:A").Find(ListBox1.Text).Activate
say = ActiveCell.row
Sheets("Data").Range("A" & say & ":AO" & say).Select
TotNum = ListBox1.ListIndex + 1
End Sub

and particularly this line

Controls("textbox" & a + 1) = ListBox1.Column(a)

it used to work properly....?

Re: VBA Runtime Error using ListBox Control on Userform

Quote from rory;778594

Perhaps you could tell us what the error message actually is?

My apologies. the error is in Dutch.

Translated it will be something like: Run-time error '-2147352571 (80020005)': Could not set the Value propert.Type mismatch.

Re: VBA Runtime Error using ListBox Control on Userform

Quote from rory;778598

How many columns does your Listbox have, and how is it populated?

I have uploaded the file in this post

Re: VBA Runtime Error using ListBox Control on Userform

Indeed. How stupid of me.

Many thanks! I appreciate your help!