Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case Is = 0 'orange
TextBox1.Value = Sheets("Sheet1").Range("B1")
Case Is = 1 ' pink
TextBox1.Value = Sheets("Sheet1").Range("B2")
Case Else
TextBox1.Value = ""
End Select
End Sub

--
Cheers
Nigel



wrote in message
ps.com...

I have a combobox that has two values

Value 1 = Orange
Value 2 = Pink

If I choose Orange I want to get Cell B1 in the text box and if I
choose Pink I want to get cell B2 in the same text box. Only one choice
the user will have to pick. please help