Sorry dave to get back to you on an old question.
I have the following code you sent us last week.

Private Sub ComboBox1_Change()
With Me.ComboBox1
If .ListIndex < 0 Then
Me.TextBox3.Value = ""
Else
Me.TextBox3.Value = .List(.ListIndex, 1)
End If
End With
End Sub

Private Sub UserForm_Initialize()
With Me.ComboBox1
.RowSource =
Worksheets("list").Range("A1:B18").Address(externa l:=False)
.ColumnCount = 2
.BoundColumn = 1
.ColumnWidths = "22;0" 'hide the second column
End With
End Sub

The problem I am having now is when I select the combobox the list does not
appear yet I checked all the links but I cant find what is wrong.
What am I doing wrong!!!!???
--
capt