Macro to copy rows based on background color of cells within a range of columns

Hello,

I need a macro to copy rows to a new worksheet when cells in a specified range (Column A to Z) contains a specific background color (red).

I found the below macro that work really well but it is limited to look only in column A. I have tried to modify it to look at a range of more than one column but I was not able to figure it out. How should I modify the below macro to look in column A to Z? Thank you for your time!

Please Login or Register  to view this content.

Maybe:

Change this:

Please Login or Register  to view this content.

To this:

Please Login or Register  to view this content.

Hello John,

Thanks for your quick reply. I did modify the macro as indicated but when I run it it stop at the following line:

If wks.Range(Cells(x, 1), Cells(x, 26)).Interior.Color = RGB(255, 0, 0) Then

And shows the following error message:

Run time error '1004':
Method 'Range' of object'_worksheet' failed

I try working a little bit with that line of coding but was not able to fix it. Any ideas what maybe needed to fix it? Thanks again!

I was guessing and not testing. Can you provide a sample that I can work with? To attach a file, push the button with the paperclip (or scroll down to the Manage Attachments button), browse to the required file, and then push the Upload button.

Originally Posted by JOHN H. DAVIS

I was guessing and not testing. Can you provide a sample that I can work with? To attach a file, push the button with the paperclip (or scroll down to the Manage Attachments button), browse to the required file, and then push the Upload button.

Hello John,

Attached is a sample file. I have included in the file the orignal macro and a 2nd one with the changes you suggested. Thank you!

I think I misunderstood in Post#2, does this work for you?

Please Login or Register  to view this content.

Works great, thank you for all your time and efforts. I will mark as solved.

You're welcome. Glad to help out, and thanks for the feedback.