Quote Originally Posted by paulked View Post
Typing everyone? No idea why you need to do that.

Thanks Paul - still need to think things through fully but when you ask "typing everyone?" your code includes:

With Sheet2
If .Cells(i, 3) = TextBox1 Then
ListBox1.AddItem .Cells(i, 1) & " " & .Cells(i, 2) & " " & .Cells(i, 3) & " " & .Cells(i, 4) & " " & .Cells(i, 5)
c = c + 1
End If
End With

I have some 20 plus columns of data and was thinking how to avoid typing each out for each column "cells (i, [number])" right up to 20 plus. And ideally make it dynamic anyway so should another column be added the code recognises and adds automatically. That was where I was coming from.