Thanks John -- I'll stop looking.

BTW, this is the sub that I ended up using.

It just just seems very brute force (inelegant?)

[VBA]
Private Sub Table_Find_Replace(T As Table, BeforeText As String, Optional AfterText As String = vbNullString, _
Optional WholeWords As MsoTriState = False, Optional MatchCase As MsoTriState = False)

Dim iRow As Long, iCol As Long
Dim oText As TextRange, oTemp As TextRange

With T
For iRow = 1 To .Rows.Count
For iCol = 1 To .Columns.Count

Set oText = .Cell(iRow, iCol).Shape.TextFrame.TextRange
Set oTemp = oText.Replace(BeforeText, AfterText, , WholeWords, MatchCase)

Next iCol
Next iRow
End With
End Sub
[/VBA]

Paul