Dim drawing As DrawingDocument
Dim sheet As Sheet
Dim pList As PartsList
Dim pListRow As PartsListRow
Dim pListCell As PartsListCell
Dim cellIndex As Integer

drawing = ThisApplication.ActiveDocument

For Each sheet In drawing.Sheets
    For Each pList In sheet.PartsLists
        For Each pListRow In pList.PartsListRows
            For cellIndex = 1 To pList.PartsListColumns.count
                pListCell = pListRow.Item(cellIndex)
                pListCell.Static = False
            Next
        Next
    Next
Next