TerryJ schrieb:
Thank you for the suggestion. Do you mean to use the InputBox rather
than the ENTER key for input?
Yes, simple like this:
Sub foo
sMsg = "Edit "
sTitle = "macro: foo"
view = thisComponent.CurrentController
sh = view.ActiveSheet
a = Array("A1","A2","A3")
For i = 0 to uBound(a())
cell = sh.getCellRangeByName(a(i))
view.select(cell)
sDefault = cell.FormulaLocal
sInput = InputBox(sMsg & i(a), sTitle, sDefault)
If len(sInput) > 0 then
cell.FormulaLocal = sInput
else
'...
endif
Next
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
