Hi Mark, * Mark Knecht <[EMAIL PROTECTED]> [040207, 16:46]: > On 2/4/07, Ennio-Sr <[EMAIL PROTECTED]> wrote: > >Hi Mark, > > > >* Mark Knecht <[EMAIL PROTECTED]> [030207, 17:20]: > >[...]
This is not what you would like but seems to be a better workaround: 1. in the conditional formatting, set the 'equal to' condition to cell $A$1 2. Copy this macro into your Calc sheet and assign it a keystroke ---------------- sub cptoa1 dim document as object dim dispatcher as object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array()) dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "ToPoint" args1(0).Value = "$A$1" dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1()) dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array()) end sub ---------------- Suppose you assign the "CTRL+A" keystroke to the macro: now, as you navigate your ss, whatever the cell you are in at the moment, if you press CTRL+A that particular cell contents will be copied to cell $A$1 (or any other of your choice, to be indicated in the last but third of my macro) thus firing up the condit. formatting. It worked in my small test ss ... ;) Cheers, Ennio. -- [Perche' usare Win$ozz (dico io) se ..."anche uno sciocco sa farlo. \\?// Fa' qualche cosa di cui non sei capace!" (diceva Henry Miller) ] (°|°) [Why use Win$ozz (I say) if ... "even a fool can do that. )=( Do something you aren't good at!" (as Henry Miller used to say) ] --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]