I have id numbers in col X and data in the next 8 cols.
Question:
I have a textbox with a command button, i type a id number in to the text box hit the command button and the corresponding data row fills into listbox2
using two cols.
Col one contains: Hats 1 to 8 and col two the data

here's what i have so far.

Private Sub Commandsearch_Click()
Dim jo As Integer
jo = UserForm1.IDsearch.Value
Dim v As Integer
Dim u As Integer
For v = 3 To 10
Set y5 = (ActiveSheet.Cells(hats, v))
Set y6 = (ActiveSheet.Cells(jo, v))
If Not IsEmpty(y6) Then
With ListBox2
.AddItem y5.Value
.List(u, 1) = Format(y6, "currency")
u = u + 1
End With
End If

End Sub

Any help would be great!