Macro to change text colour of adjacent cell to the same text colour as target cell

Hello,

Is it possible to have a macro to have the text colour of a range of cells a particluar no. of columns to be the same text colour as their adjacent target cells?

E.g.
Column A = target cells
Column D, E & F = adjacent cells for text colour to be changed

If text colour of a cell in column A is white (cell A3), change the adjacent cells of column D, E & F (cell D3, E3 & F3) to be white text too. If the text colour of a cell in column A is black (cell A2), change the cells of column D, E & F (cell D2, E2, & F2) to be black text too.

Anyway, I wanted a macro instead of other methods (if available) because this is code will be combined into my final macro for the final database.
I've a sample data attached. Please advise. Thanks.

Hmm, I can't get the macro to work at all. Nothing changes.

Your macro works but only for cell A2 & A3. Actually my database has a varying no. of data in it and will expand as I add more data. So I would need the macro to be able to be applied to a huge no. of data.

Where did you put your macro into? I tried copy and paste into a new macro but doesn't work.

Hmm, I know where to insert Tom's code already. But this code doesn't give auto change of colour of text (which would be very tedious because I've hundreds rows of data to change manually) and itself changes whole row of text colour (which I only want particular columns).

Steffen's code works better for me but I need it to be applied to a lot of data so is there a way to modify the code and make it run for hundreds of row of data?

By the way, my data is only either in white or black text.

Great job! =)

But can modify it further to only change colour of text in columns D, E & F only? Column B & C I still want it to be in black font. tyvm

Oh yes this is the 1!!!! you're a genius!!! <3