Extending a Macro

[SamuelT]

Hi all,

I'm using the following macro to pick up a cell's color and change the text to the same color:

Please Login or Register  to view this content.

However, I now want to extend this so that within a range (G7:EZ201) I run the macro and it colors the whole lot. Within this range there will be a number of different colored cells.

Can anyone suggest how to either extend my current VBA, or suggest an alternative?

TIA,

SamuelT

[Leith Ross]

Hello SamuelT,

You can do it by stepping through each cell in the Range.

Please Login or Register  to view this content.

Sincerely,
Leith Ross

[SamuelT]

Hi Leith,

Thanks for the suggestion. Unfortunately, when I run your script I get 'Compile error: For without next" error message.

Any ideas?

TIA,

SamuelT

[Leith Ross]

Hello SamuelT,

Sorry about that, I confess I'm not a good typist. Here is the corrected code...

Please Login or Register  to view this content.

Sincerely,
Leith Ross

[VBA Noob]

Samuel,

Please wrap code next time otherwise your posts will be deleted. I've done it for you this time

VBA Noob

Hi all,

I'm using the following macro to pick up a cell's color and change the text to the same color:

Please Login or Register  to view this content.

However, I now want to extend this so that within a range (G7:EZ201) I run the macro and it colors the whole lot. Within this range there will be a number of different colored cells.

Can anyone suggest how to either extend my current VBA, or suggest an alternative?

TIA,

SamuelT

[SamuelT]

Firstly - apologies, will wrap from hereafter.

Also, still no joy with the code. I'm not getting a "Run time error '1004': Unable to set ColorIndex property of the Font class".

Another typo perhaps.

Thanks,

SamuelT

[Leith Ross]

Hello SamuelT,

This is one of the few times the cell has to be selected for the macro to function properly...

Please Login or Register  to view this content.

Sincerely,
Leith Ross