String to excel need " removed

[Lars-Erik]

I use this code:

Code Select Expand

appExcel.ActiveCell.Cells(10 + i, 3) = collShapes.Item(i).CellsSRC(visSectionProp, n, visCustPropsValue).FormulaU
to send some data to my excel (creating a custom BOM, pain in the ass :O)

anyway, its working but showing up as "value" in excel with quotes. cant get them removed using replace function.
Any thoughts anyone?

- Lars

[Visio Guy]

Hmmm. Guesss:

ExcelCell.Value =
ExcelCell.Value2 =
ExcelCell.Text =

shp.Cells(...).ResultStr(visNoCast)