Hi Kenneth,
Hate to bother you with this again but, I just done setting up my user form and ran into issue after I RUN the filter, when selecting a line in the listbox. When I go to debug it takes me to code below, line [s = ListBox1.List(ListBox1.ListIndex, 16)]. Everything looks okay???
I have 16 controls in the userform.
Private Sub ListBox1_Click()
Dim i As Integer, A, s As String
For i = 1 To 16
Controls("Reg" & i) = ListBox1.Column(i - 1)
Next i
s = ListBox1.List(ListBox1.ListIndex, 16)
s = Split(s, "]")(1)
s = Split(s, "'")(0)
ComboBox1.Value = s
End Sub