CAD tip # 8767:

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