put back static value status iin revision table

[stefaanboel]

we worked out this piece of code to reset all cells from the approved folder in the revision table.

but it's not working, is it because this function does not exist for the revision table? It does work for the partslist :s

Public Sub RevisionTableMult()

Dim invDDoc As DrawingDocument
Dim invPL As RevisionTable
Dim invPLCell As RevisionTableCell
Dim intRow As Integer
Dim invPLRow As RevisionTableRow

    Set invDDoc = ThisApplication.ActiveDocument
    Set invPL = invDDoc.ActiveSheet.RevisionTables.Item(1)
 
     For intRow = 1 To invPL.RevisionTableRows.Count
     
        Set invPLRow = invPL.RevisionTableRows.Item(intRow)
       Set invPLCell = invPLRow.Item("APPROVED")
'resets the cell back to the parametric value...
         invPLCell.Static = Active
    Next intRow

End Sub