Adding a row to a defined list (combo box)

[tian0020]

Hi

Basically i've got certain cells (range) e.g. B2:D4 that i've named. I have a combo box that lists all the names... "Topic A - Topic Z". What i'm trying to do is add a row when i choose one of the topics, so if i choose Topic A, it adds a row to topic A.

How would i go about doing this?

Here's my code... if you can make sense of it.

Private Sub ComboBox1_DropButtonClick()
Do While ComboBox1.ListCount > 0
ComboBox1.RemoveItem (0)
Loop

ComboBox1.AddItem "Topic A"
ComboBox1.AddItem "Topic B"
ComboBox1.AddItem "Topic C"
ComboBox1.AddItem "Topic D"
ComboBox1.AddItem "Topic E"
ComboBox1.AddItem "Topic F"
ComboBox1.AddItem "Topic G"
ComboBox1.AddItem "Topic H"
ComboBox1.AddItem "Topic I"
ComboBox1.AddItem "Topic J"
ComboBox1.AddItem "Topic K"
ComboBox1.AddItem "Topic L"
ComboBox1.AddItem "Topic M"
ComboBox1.AddItem "Topic N"
ComboBox1.AddItem "Topic O"
ComboBox1.AddItem "Topic P"
ComboBox1.AddItem "Topic Q"
ComboBox1.AddItem "Topic R"
ComboBox1.AddItem "Topic S"
ComboBox1.AddItem "Topic T"
ComboBox1.AddItem "Topic U"
ComboBox1.AddItem "Topic V"
ComboBox1.AddItem "Topic W"
ComboBox1.AddItem "Topic X"
ComboBox1.AddItem "Topic Y"
ComboBox1.AddItem "Topic Z"
End Sub

Private Sub CommandButton3_Click()
Dim rw1 As Integer
Dim cbo As Integer


If ComboBox1.Value = "Topic A" Then
cbo = Range("TopicB").Select
    Selection.EntireRow.Insert
   End If

rw1 = cbo - 1
If rw1 = 0 Then
rw1 = 1
Else
End If

Range(Cells(rw1, 2), Cells(rw1, 2)).Value = TextBox3.Value



If TextBox5.Value >= 1 Then
hypx = TextBox5.Value
hypx = "\\MERLIN\DATA\GLOBAL\CDT Updates\" & hypx & ".doc"
Range(Cells(rw1, 2), Cells(rw1, 2)).Select
ActiveSheet.Hyperlinks.add Anchor:=Selection, Address:=hypx, _
        TextToDisplay:=TextBox3.Value
End If


Unload UserForm1
End Sub

Private Sub CommandButton4_Click()
Unload UserForm1
End Sub

Thanks