Highlighting cells in a specific distance to the selected cell

Hello,

I am stuck with the following problem: I want to highlight a set number of cells in a specific distance when selecting a cell.

For example:

I select cell A1 and A1; A11; H1 and H11 get highlighted.
Now I switch to A2 and A2; A12; H2 and H12 get highlighted.
Same with D1 - D1; D11; K1 and K11 get highlighted and so on.


I have already worked with cases / Case Select in a Worksheet with Selection Change where you state every result when a case takes effect.
My Workbook Range comprises 14 rows and 37 columns - so 518 cases with 4 results each. As you can imagine I would like to avoid coding that. (would probably be to big anyways)

The "distance" to the to be highlighted cells never changes.

Is there a way to shortcut this?

Thanks in advance!
Philipp

Hi
May be some thing like

Please Login or Register  to view this content.

Hi,

I tested both solutions and added a (sheetname).Cells.Interior.ColorIndex = xlColorIndexNone in front.
They work perfectly fine.

Thanks