I have three listbox in an userform, I need to populate listbox2 based on the item selected in listbox1.
I used the code Private Sub ListBox1_Change()
Select Case ListBox1.Value
Case "1"
arr = Array("1", "2", "3")
Case "2"
arr = Array("4", "5", "6")
Case "3"
arr = Array("7", "8", "9")
Case "4"
arr = Array("10", "11", "12")
End Select

UserForm1.ListBox2.List = arr


End Sub
But, this throws an runtime error 381: Need your help.