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.