Your code works great ---but I need help getting the selection/range to advance to the next sentence & next cell. Here is what I have:

Dim keepSearch As Boolean
Dim r As Range
Dim SentenceRange As Range
Dim tRow As Row
Dim tCell As Cell
Dim myTable As Table

Set myTable = ActiveDocument.Tables(1)
For Each tRow In myTable.Rows
Set tCell = tRow.Cells(3)
Set r = Selection.Range.Cells(1).Range
For Each SentenceRange In r.Sentences
If SentenceRange.Font.Bold = True Then
SentenceRange.InsertBefore "BOMBME"
End If
Next
Next


This doesn't move to the 3rd cell (not sure how to set this). When I start in the right cell, it goes to first sentence in the cell (column 3), then the 2nd sentence, but never makes it to the third sentence or out of the first cell [in column 3].

Can you help me move the selection forward? Many thanks!!