*.... .Cells(4,3).value = 42 .ChartObjects.add(50,50,500,500) .ChartObjects(1).Chart.Chartwizard(.range(.Cells(1,1),.Cells(4,3)),xl3DColumn,4,1,0,1,1,"","","","") With .ChartObjects(1).Chart .hastitle = .t. *... ox.visible = .t. Endwith Endwith *oX.activeworkbook.saved = .t. && Suppress save dialog *oX.quit && Quit excel =sys(3006,val(nlLocaleId))50,50,500,500 are Left,Top,Width, Height in points.