Set oRng = oTbl.Rows(lngRow).Cells(3).Range With oRng.Find .Text = "Task Statement" If .Execute Then oRng.InsertAfter ": " Do While IsNumeric(oRng.Characters.Last.Next) oRng.MoveEnd wdCharacter, 1 Loop oRng.InsertAfter " " oRng.Collapse wdCollapseEnd oRng.InsertSymbol Font:="Times New Roman", CharacterNumber:=8211, Unicode:=True oRng.Collapse wdCollapseEnd oRng.Move wdCharacter, 1 oRng.InsertAfter " " End If End With