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

[celinedhrn]

Hi John,

thank you so much for the fix!
I ran the code again and indeed the error came - no idea why it did not initially.
The code works perfectly with the corrected syntax.

Thanks!!!

Celine

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