Dim oDrawing As DrawingDocument
oDrawing = ThisApplication.ActiveDocument
Dim oPL As PartsList
oPL = oDrawing.ActiveSheet.PartsLists.Item(1)
oPL.Sort2("ITEM",True,"QTY",True,"PART NUMBER",True,True, True)