ListBox2 is determined by finding the selection in Listbox1 on MyLists!A:A and returning data in all cells to the right
MatlSht = ListBox1.Value
With Worksheets("MyLists").Columns("A:A")
Set c = .Find(MatlSht, LookIn:=xlValues)
If Not c Is Nothing Then
With Worksheets("MyLists")
RadRow = Range(c.Address).Row
FirstCell = .Cells(RadRow, 2).Address
LastCell = .Cells(RadRow, .Columns.Count).End(xlToLeft).Address ' End With
End With
End If
End With
RadRng = "MyLists!" & FirstCell & ":" & LastCell
SelectMatl.ListBox2.RowSource = RadRng
When ListBox1 selection = the value in A3
RadRng correctly = "MyLists!$B$3:$E$3"
But ListBox2 only shows the value in B3 and NOT C3, D3 and E3
Bookmarks