Hi! Sorry for bothering again...
When I delete the contents of a cell in a macro (for a spreadsheet document) I just set ThisComponent.Value to 0 and .String to "" and maybe also .Formula to "" for each cell. Is there a quicker way to do this, requiring only one instruction? I want to obtain the same result as the backspace key does to a selected cell range. I recorded a macro when I deleted a cell range and the result looks like this: REM ***** BASIC ***** sub DeleteContentsOfCellRange rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "ToPoint" args1(0).Value = "$A$5:$B$6" dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1()) rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, Array()) end sub I guess I could shorten this quite a bit and still keep the functionality, but isn't there an easier way? Johnny