To assign width to a cell of Excel

[SpeedCAD]

Hi...

How do I assign a width to a cell of Excel by means of Visual LISP?

I have been proving with the dxscad method but it doesn't work me, for example to assign a color to a text of a cell Excel:

(defun color-fuente-excel (row col intcol / rng)
(setq rng (celda-excel (msxl-get-ActiveSheet xlapp) row col))
(msxl-put-colorindex (msxl-get-font rng) intcol)
)

but if I occupy a similar method to give width to a column it doesn't work, can somebody help me?

Thanks you...