The link I added above appears to be the solution I was looking for. Changing the actual part number led to other issues. I found it more advantageous to add another column to the itable (Prt Number) and manipulate that. The modified code: Dim oDoc As Inventor.PartDocument = ThisApplication.ActiveDocument Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition Dim oFactory As iPartFactory oFactory = odef.CreateFactory Dim oWorkSheet oWorkSheet = oFactory.ExcelWorkSheet Dim oCells oCells = oWorkSheet.Cells ' Columns... ' oCells.Item(1, 1) = "Member" ' oCells.Item(1, 2) = "Part Number" ' oCells.Item(1, 3) = "Description" ' oCells.Item(1, 4) = "OD" ' oCells.Item(1, 5) = "LENGTH" ' oCells.Item(1, 6) = "Prt Number" ' Row 1 values... oCells.Item(2, 1) = "5033600" oCells.Item(2, 2) = "5033600" oCells.Item(2, 3) = "INTERMEDIATE TUBE 8.25" oCells.Item(2, 4) = 8.25 oCells.Item(2, 5) = "TubeLen825" oCells.Item(2, 6) = MastNo & "04" ' Row 2 values... oCells.Item(3, 1) = "5033601" oCells.Item(3, 2) = "5033601" oCells.Item(3, 3) = "INTERMEDIATE TUBE 3.75" oCells.Item(3, 4) = 3.75 oCells.Item(3, 5) = "TubeLen375" oCells.Item(3, 6) = MastNo & "10" ' Row 3 values... oCells.Item(4, 1) = "5033602" oCells.Item(4, 2) = "5033602" oCells.Item(4, 3) = "INTERMEDIATE TUBE 4.50" oCells.Item(4, 4) = 4.50 oCells.Item(4, 5) = "TubeLen450" oCells.Item(4, 6) = MastNo & "09" ' Row 4 values... oCells.Item(5, 1) = "5033603" oCells.Item(5, 2) = "5033603" oCells.Item(5, 3) = "INTERMEDIATE TUBE 5.25" oCells.Item(5, 4) = 5.25 oCells.Item(5, 5) = "TubeLen525" oCells.Item(5, 6) = MastNo & "08" ' Row 5 values... oCells.Item(6, 1) = "5033604" oCells.Item(6, 2) = "5033604" oCells.Item(6, 3) = "INTERMEDIATE TUBE 6.00" oCells.Item(6, 4) = 6.00 oCells.Item(6, 5) = "TubeLen600" oCells.Item(6, 6) = MastNo & "07" ' Row 6 values... oCells.Item(7, 1) = "5033605" oCells.Item(7, 2) = "5033605" oCells.Item(7, 3) = "INTERMEDIATE TUBE 6.75" oCells.Item(7, 4) = 6.75 oCells.Item(7, 5) = "TubeLen675" oCells.Item(7, 6) = MastNo & "06" ' Row 7 values... oCells.Item(8, 1) = "5033606" oCells.Item(8, 2) = "5033606" oCells.Item(8, 3) = "INTERMEDIATE TUBE 7.50" oCells.Item(8, 4) = 7.50 oCells.Item(8, 5) = "TubeLen750" oCells.Item(8, 6) = MastNo & "05" ' Row 8 values... oCells.Item(9, 1) = "5033607" oCells.Item(9, 2) = "5033607" oCells.Item(9, 3) = "INTERMEDIATE TUBE 8.25" oCells.Item(9, 4) = 8.25 oCells.Item(9, 5) = "TubeLen825" oCells.Item(9, 6) = MastNo & "04" ' Row 9 values... oCells.Item(10, 1) = "5033608" oCells.Item(10, 2) = "5033608" oCells.Item(10, 3) = "INTERMEDIATE TUBE 9.14" oCells.Item(10, 4) = 9.124 oCells.Item(10, 5) = "TubeLen914" oCells.Item(10, 6) = MastNo & "03" ' Row 10 values... oCells.Item(11, 1) = "5033609" oCells.Item(11, 2) = "5033609" oCells.Item(11, 3) = "INTERMEDIATE TUBE 10.0" oCells.Item(11, 4) = 10.00 oCells.Item(11, 5) = "TubeLen10in" oCells.Item(11, 6) = MastNo & "02" Dim oWB oWB = oWorkSheet.Parent oWB.Save oWB.Close