I have a function detecting if all the cells in a table consist of text with
hidden font:
----------------------
Public Function OnlyHiddenTextinTable(oTable As Table) As Boolean
OnlyHiddenTextinTable = True
Dim oRow As Row
Dim oCell As Cell
For Each oRow In oTable.Rows
   For Each oCell In oRow.Cells
       If oCell.Range.Font.Hidden <> True Then
           OnlyHiddenTextinTable = False
           Exit Function
       End If
   Next 'oCell
Next 'oRow
End Function
-----------------
The function works fine until it runs into a table with merged cells, then
it crashes.

Does anyone have a workaround this problem?

Regards
Stein