Bulk Find and Replace in WHOLE workbook

I have some code that does what I need for the activesheet only. I tried to make it loop through the whole workbook, but it just takes longer with the same result( active worksheet only). Where am I wrong on my loop, and is there a more efficent way to accomplish this?

I have a workbook with sheet1:A3:A containing the old values. On that same sheet B3:B contains the new values. I run the macro after activating the workbook that I wish to Find and replace on.

Please Login or Register  to view this content.

Maybe:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

That line gives me an "Object Required" Error.

Originally Posted by JOHN H. DAVIS

Maybe:

Please Login or Register  to view this content.

Oops:

Should be:

Please Login or Register  to view this content.

Yes, this is sloved. My worksheet loop wasnt actually necessary. I had all but the activesheet protected, I didnt realize Find and replace only worked on unprotected worksheets. I stripped the code down to the below.

Please Login or Register  to view this content.

Originally Posted by TMS

But you refer to ActiveSheet.Cells. That needs to be WS.Cells.

Okay, i thought i had this solved, but so far i'm only able to do the activesheet. I tried ws.cells. That didnt work. I need to change that to each worksheet. Any ideas?

I have attached my two sample workbooks.
in the TestReplaceWorkbook.xlsx all four sheets contain different text strings.
in the Find and Replace.xlsm, Column A contains the find value, Column B contains the replace value.

Currently, I open the workbook that i want to replace values on, Press Alt+F8 and run the macro once on every sheet.

In my real workbook, I have around 30 worksheets that this becomes cumbersome to do. Can anyone tell me how to change the reference from Activeworksheet to every sheet in the Activeworkbook?

Originally Posted by TMS

Is this now resolved to your satisfaction?

Regards, TMS

Yes, thank you for following up!

Originally Posted by TMS

Is this now resolved to your satisfaction?

Regards, TMS

Yes, thank you for following up!