Find and replace a list of words in PowerPoint presentation, including tables

[John Wilson]

This should error|:

'Store cell text into a variable

ShpTxt = tbl.Cell(i, j).Shape.TextFrame.TextRange

ShpTxt is declared as a TEXTRANGE OBJECT

SO

'Store cell text into a variable

Set ShpTxt = tbl.Cell(i, j).Shape.TextFrame.TextRange