Dim i As Long
Me.ListBox1.AddItem
For a = 1 To 5
Me.ListBox1.List(0, a - 1) = sheet1.Cells(1, a)
Next a
Me.ListBox1.Selected(0) = True
For i = 2 To sheet1.Range("a100").End(xlUp).offest(1, 0).Row
For j = 1 To 5
h = Application.WorksheetFunction.CountIf(sheet1.Range("a" & 2, "e" & i), _
sheet1.Cells(i, j))
If h = 1 And LCase(sheet1.Cells(i, j)) = LCase(Me.TextBox1) Or h = 1 And _
sheet1.Cells(i, j) = Val(Me.TextBox1) Then
Me.ListBox1.AddItem
For x = 1 To 5
Me.ListBox1.List(ListBox1.ListCount - 1, x - 1) = sheet1.Cells(i, x)
Next x
End If
Next j
Next i
