Помощ за Combobox/Textbox

Здравейте,

Виждам ,че тук има много отзивчиви хора разбиращи от това от което аз явно скоро време няма да разбирам :) и искам да Ви помоля за малко помощ ако е възможно. Значи проблема ми е следния:
Имам екселски файл с няколко шийта и искам примерно от едниния шиит колоните да речем Б1 с ИД от 1 до 12 да се прехвърлят в една Combobox от където да се избират. След това в следвашата колона Ц1 да се прехвърлят съответните за нея данни от екселската таблица в Тextbox-a под нея. и те да не могат да се пипат примерно.

Благодаря Ви предварително.

Da re4em 4e v UserForm'a ti si na4ertal 1 Combobox i 1 TextBox.
Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 1
ComboBox1.RowSource = Sheets(1).Range("B2:C13").Address
TextBox1.Locked = True
End Sub

Private Sub ComboBox1_Change()
If ComboBox1 = Empty Then TextBox1 = Empty
End Sub

Private Sub ComboBox1_Click()
TextBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub