VBA that highlights a cell when selected (returning existing fill - if applicable)

[kersplash]

This code was just posted by mike at this thread;

https://www.excelforum.com/excel-pro...-selected.html

Please Login or Register  to view this content.

I think this is great.

Is there a way to modify the code so that if the selected cell is already filled with any colour then that colour is stored and when any other cell is selected the original cell fill colour is returned to the first cell?

ie. Cell 1 is filled RED (or any other colour).
Cell 1 is selected and goes YELLOW
Cell 2 is selected and Cell 1 returns to RED (or any other colour) and Cell 2 goes YELLOW.

[MickG]

Try this:-
NB:- Paste code at top of worksheet module.

Please Login or Register  to view this content.

Regards Mick

[kersplash]

Thanks Mick,

Are you able to show me how I may incorporate your code into what I already have?

I would like this to be in my Personal.xlsb file.

[jindon]

kersplash

What do you want for something like...

Cell was originally colored Red and now Yellow when selected.
Close the workbook.
Select other cell and what color should be in the cell before that was originally Red?
If you want it Red, you need to keep the information in somewhere like hidden sheet I guess.

[kersplash]

Let me explain.

I work with 2 screens referring to my spreadsheet for information.

If I select cells normally (without this VBA) - I get a greyish fill that shows within the selected cell.

I go to my second screen to work on a document and the greyish fill is no longer present in my spreadsheet as the focus is no longer on the spreadsheet.

When I'm working on my document and referring to my spreadsheet it would be nice for a highlighting to appear which is what my initial VBA in personal.xlsb does fine.

Now I have spreadsheets that has different cell highlighting throughout, if I use this VBA solution, when I select an already highlighted cell, it changes to YELLOW.

When I deslect the cell it removes all the highlighting and doesn't return the original colour.

Also I can no longer highlight any cells with any colour as this VBA removes the highlighting each time.