double-click to display / hide text in a cell

[max_max]

Hello to all.
is it possible for a macro to do this?
double click in D4 and the text disappears another double clik and the text is displayed
double-click in E4 and the text disappears another double clik and the text is displayed
double click in F4 and the text disappears another double clik and the text is displayed
double click must only work in these 3 cells.
max_max

[6StringJazzer]

What do you mean by "disappears"? Do you want the cell to be cleared? Or is it OK to change the font color so the value is not visible?

If you want the cell to actually be cleared then the value must be stored someplace to be able to redisplay it. That probably means using a hidden sheet.

[davesexcel]

Possibly something like this, you would have to change the font color

Please Login or Register  to view this content.

[max_max]

Hi davesexcel,
your macro not work.
max_max

[max_max]

Would be better as 6stringjazzer says
double-click the cell value to make it disappear
then double-click on it to make it reappear
max_max

[davesexcel]

The you will have to store the value in another part of the sheet

Please Login or Register  to view this content.

[max_max]

Hi davesexcel thanks you, your macro work!
a change:
There are united cells see attachment.
max_max

[max_max]

I have seen another problem: the cell text is given by a formula that then does not re-enter.
max_max

[davesexcel]

Merged cells do not work well with target.address, I can only get it to work one at a time.

Your offset cells should not be merged.

Here's a code you can use until you get a better solution.

Please Login or Register  to view this content.

[davesexcel]

I have seen another problem: the cell text is given by a formula that then does not re-enter.
max_max

This was the reason I wanted to change the color of the font......
Don't merge cells you want to use code on.

[max_max]

Hi davesexcel the your macro in pos#9 for merged cells work!
Have you read the my post#8 for cells with a formula?

[max_max]

Hello,
I did not think about it, but it looks like it works.
is right here?:

Target.Offset(, 10) = Target.Formula

Please Login or Register  to view this content.

max_max