Populate Combobox based on Selection in another Combobox

Hi All,

I have a userform with a combobox that is populated with company names from a Named Range. I have a second combobox, which I would like to list the corresponding addresses based on the selection in the first combobox.

The code I'm using at the moment populates "ComboComp" with the unique values in the named range "CompName". I have a second combobox named "ComboAddress" that I'm looking to populate with the addresses in named range "AddLn123", based on the selection made in "ComboComp".

I hope I've explained this well enough - is anyone able to help me?

Private Sub UserForm_Initialize()

'load unique company names in to combo box

Dim v, e
With Sheets("DATA").Range("CompName")
    v = .Value
End With
With CreateObject("scripting.dictionary")
    .comparemode = 1
    For Each e In v
        If Not .exists(e) Then .Add e, Nothing
    Next
    If .Count Then Me.ComboComp.List = Application.Transpose(.keys)
End With


End Sub

Thanks,
Dom