Hi Mickey

You can use this

0 = the first item in the listbox

Private Sub ListBox1_Click()
If Me.ListBox1.ListIndex = 0 Then
Me.ComboBox1.List = Sheets("sheet1").Range("UNIT").Value
' other code
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"MBlake" wrote in message ...
Hi,
An earlier post reply suggested that using AddItem for a ComboBox, I have been looking at this and could do with a little more
advice please.

I need a ComboBox to give a range of options that are dependant upon a listbox. I then need a second combobox to take the 1st
combobox selected value and give further choices.

I have created the named ranges, these are - (1) UNIT, (2) categories and (3) Options. So, categories is dependant upon Unit and
Options are then dependant upon categories.

Can someone advise the code to reference the listbox and then populate the comboboxes please.

Any help or a url would be excellent,
Mickey