Hi

I have a UserForm with a ComboBox & TextBoxes and using the the code below
gleaned off this forum

Private Sub UserForm_Initialize()
With Me.ComboBox1
..ColumnCount = 2
..ColumnWidths = "20;100"
..AddItem "A"
..List(.ListCount - 1, 1) = "APPLE"
..AddItem "G"
..List(.ListCount - 1, 1) = "GRAPEFRUIT"
..AddItem "P"
..List(.ListCount - 1, 1) = "PEAR"
'and so on
End With
End Sub

Private Sub ComboBox1_Change()
Tb9.Value = Tb2.Value
Tb10.Value = Tb2.Value
Tb11.Value = Tb2.Value

My problem is that if I change and Select "A" in the ComboBox Tb9,Tb10,Tb11
all display the value of Tb2. I actually need Tb10,Tb11 to display a 0 (zero)
and likewise selecting "G" Tb9,Tb11, to display a 0 (zero) selecting "P"
Tb9,Tb10 to display a 0(zero) can any of you experts out there help me.
--
Many Thanks