Hello.

Scenario:
Windows10, MS365
Xcel.

ComboListBox activeX
4 datalist in another page called: Data
1 linked cell


I try to list data from 1 of 4 diffrent lists, shown in 1 combolistbox (and its 2 columns)

Choices, shown permanent in 1st column
"DATA1"
"D...2"
"
"
all choices of string type

Lists:
List1 List2 List3 List4
Max 170 lines of data in each list or and better, use actual number of items in each lists

The linked cell is set to a free cell, containing name of choice choosen.

What I try to achieve is:
when data(stringtype) in free cell is altered, set listfillrange to proper List (1 of 4) which will, hopefully
show the content of list in column no 2 in the combolistbox :)
The code belw is surely, at its best, very poor as this is all new to me.

VB code
Private Sub ComboBox1_Change()
If ComboBox1.LinkedCell = "Skedsmo" Then
ComboBox1.ListFillRange = "Data(a2:a113)"

End If
End Sub