Loop through Find then special paste background color with VBA

Hello,

I am trying to run a loop that automatically finds a cell value from Worksheet 1 on Worksheet 2 and then special pastes the cell's background color to the corresponding cell on Worksheet 1. For example, it sees cell "Apple" on Worksheet 1, finds a cell with "Apple" which happens to have a red background on Worksheet 2, returns to Worksheet 1 to special paste a red background to cell "Apple".

The formula I use does not work. Please let me know what I'm doing wrong

Formula:

Please Login or Register  to view this content.

You need an If statement to determine if the cell found in worksheet 2 has the red background AND the corresponding text.

I will definitely try to work one in. However, I am not looking for a specific background. There's a matching list of names on each worksheet, I want to copy whatever the background color is from Worksheet 2 to the cell with the same name in worksheet 1. Does that make sense?

Now I'm using the following formula, but receiving an error message. Anyone have any idea how to fix this?

Formula:

Please Login or Register  to view this content.