Dim m As Object, t(), c As Range
Private Sub UserForm_Initialize()
ComboBox1.List = Array("LC", "C", "CTR", "M")
End Sub
Private Sub ComboBox2_DropButtonClick()
If ComboBox1 = "" Then Exit Sub
With Sheets(ComboBox1.Text)
Set m = CreateObject("Scripting.Dictionary")
For Each c In .Range("b4:b" & .[B65000].End(3).Row)
m(c.Value) = ""
Next c
ComboBox2.List = m.keys
End With
End Sub
Private Sub ComboBox2_Change()
Dim Lgn&
Lgn = ComboBox2.ListIndex + 4
With Sheets(CStr(ComboBox1))
TextBox105 = .Cells(Lgn, 4)
TextBox107 = .Cells(Lgn, 3)
TextBox109 = .Cells(Lgn, 11)
TextBox114 = .Cells(Lgn, 5)
End With
End Sub