I've done it now, but for all those that want to know....this is how i
can be achieved;


Code
-------------------

Private Sub cmsSearch_Click()

Dim i%

ActiveWorkbook.Sheets("RelationalData").Activate
Range("A1").Select

i = 3
Do
If InStr(1, Cells(i, 7).Value, txtSearch.Text, vbTextCompare) < 0 Then
With lstResult
.AddItem Cells(i, 7).Value
End With
End If
i = i + 1
Loop Until Cells(i, 7).Value = ""

End Sub

-------------------

--
gti_jober
-----------------------------------------------------------------------
gti_jobert's Profile: http://www.excelforum.com/member.php...fo&userid=3063
View this thread: http://www.excelforum.com/showthread.php?threadid=51265