>Ok the error message is gone but I still have a problem. All of the text in the cell is bold and not just the first word. In checking the book the value for the constant wdWord is 2. So either the selection is not equal to one word or the Font.Bold setting is being applied to the whole cell and not just the selection.
>
>.Cells[1].Range.InsertAfter( lcDescription )
>.Cells[1].Range.Expand( 2 )
>.Cells[1].Range.Font.Bold = .T.

I think when you do InsertAfter, the new text is added to the existing range. You need to collapse the range and then set it to what you want to bold.

Tamar