With no other details, maybe this will inspire you.

Private Sub Listbox1_Click()
Dim cell as Range
Dim secondList as Range
set secondList = Worksheets("Sheet2").Range("A1").CurrentRegion
' remove headers
set secondList = secondList.offset(1,0).Resize(Secondlist.Rows.coun t-1,1)
Listbox2.Clear
for each cell in secondlist
if cell.Value = Listbox1.Value then
Listbox2.AddItem cell.Offset(0,1)
end if
Next
End sub

--
Regards,
Tom Ogilvy


"marksince1984"
wrote in message
news:marksince1984.2909za_1149639601.5537@excelfor um-nospam.com...

Hello all,

I have a list which I can get to appear in a list box.

What I want to do is then show a list of 6 items which are unique to
the item selected in the first box.

Every item in the first box has its own set of unique values

Any ideas??

Thanks

Mark


--
marksince1984
------------------------------------------------------------------------
marksince1984's Profile:
http://www.excelforum.com/member.php...o&userid=33484
View this thread: http://www.excelforum.com/showthread...hreadid=549238