Vba to copy worksheets from different folders into a new workbook based on sheet name

Hi,

Firstly, I am explaining the data I have and what I intend to do with it.

I have 2 folders - Sent and Received and each folders have multiple workbooks.

For Example - In Sent file, I have a workbook with name 'Peter' and in Received file, I have a workbook with name 'Peter-R' (R refers to received)
so.. each file that I have sent will come back with the suffix R, which I save in Received folder.

I have a new workbook named 'Compare' outside of these 2 folders where I have list of all the Workbook names that are in Sent Folder. Now I had recorded a Macro as below to copy both sheets into a new workbook but, the problem with this code is that it takes the cell value instead of Range. Each time I have to change the names inside the macro.

Can someone help me in copying sheets from both sent and received folders (based on the file names in column A of compare workbook) into a new workbook and rename it as 'Peter-compare' and save it in a new folder named Comparison. (I will create this new Folder - Comparison).

Hope this is not confusing!

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Hi Alpha,

I tried this out.. but it is not highlighting the differences. It is highlighting other columns.

Can you add your code instead of this? I want it to highlight the differences in Received Sheet. Comparison of rows begins with Row 5 and instead of changing the background cell color, I want it to change the font color to Red.

Awaiting your soonest reply

Why did you give me that code to incorporate if it doesn't work? And it doesn't start at row 5. And it doesn't change font color.

You can use Conditional Formatting to highlight the differences..
https://www.extendoffice.com/documen...sheets.html#a4

Hi Alpha,

Sorry.. there was a silly error on my end... My entire column was replaced.. due to which this macro wasn't working.
It is working perfectly now.. really sorry for all the trouble caused and thanks a ton!