using the code below populates a combobox from a external table in a word
doc
my problem is when the user  types  in the combobox the code prevent other
text from being inserted.
Is there a way to overcome this problem
thanks phil

Private Sub cbroo_main_Change()
  cbroo_profile.Clear

   Set sourcedoc = Documents.Open("c:\schedule\Supplier\Roofing.doc")
   For i = 1 To sourcedoc.Tables(1).Cell(cbroo_main.ListIndex + 2,
2).Range.Paragraphs.Count
      Set myitem = sourcedoc.Tables(1).Cell(cbroo_main.ListIndex + 2,
2).Range.Paragraphs(i).Range
      myitem.End = myitem.End - 1
      cbroo_profile.AddItem myitem.Text
   Next i
   sourcedoc.Close SaveChanges:=wdDoNotSaveChanges
End Sub

Private Sub UserForm_Initialize()

  Dim sourcedoc As Document, i As Long, myitem As Range
   Set sourcedoc = Documents.Open("c:\schedule\Supplier\Roofing.doc")
   For i = 2 To sourcedoc.Tables(1).Rows.Count
      Set myitem = sourcedoc.Tables(1).Cell(i, 1).Range
      myitem.End = myitem.End - 1
      cbroo_main.AddItem myitem.Text

   Next i
End Sub