Macro to find and replace links in hidden worksheets

Originally Posted by TMShucks

Can you be more specific about what doesn't work, or what doesn't work ...

Sorry, I'll be more specific.

An error message comes up saying:
"Run-time error '1004': Unable to set the Visible property of the Worksheet class"


The error comes up for the first line of ErrHandl:
for this line:

Please Login or Register  to view this content.

Originally Posted by TMShucks

You must have at least one sheet visible. That error is what you get when you try to hide the last visible sheet.

I still have 11 other sheets in the workbook though that I haven't hidden.
So I'm not sure why that error would come up? Do you have any idea?

Originally Posted by TMShucks

Well, you can see your workbook, and you can run your code and you can see it fail.

I can see the code, but I can't test it because I have no data.

On the basis of what you have reported so far, I have guessed at what the problem might be.
...

TMShucks, thanks for your help so far, I will create a sample spreadsheet, but it will take me a little time because there is a good bit of private information that I'll have to remove.

Originally Posted by TMShucks

...Back in my first reply, I suggested you post a sample workbook with the code and which demonstrates the problem. With that, we'll have a much better chance of determining the cause of the error.

Up to you.

Regards, TMS

Here is my sample worksheet.
Fix Replace Links Test Sample.xlsm
The password to unprotect workbook and sheets is "ABC".

The macro seems to run ok and it seems to do the job with finding and replacing, it even re-hides the sheets that I want it to, but it keeps coming up with that error on the first line of the Error Handler:

Please Login or Register  to view this content.

Thanks for your help!

Originally Posted by TMShucks

Don't just drop into the Error Handler. You need an Exit Sub immediately before it. You only go to the Error Handler if there is an error, you shouldn't just drop through it unless it is designed to be the "normal" exit routine.
...

Thank you TMShucks, I didn't realize that.
Also, are my statements with "Application.EnableCancelKey"
in the right place and done correctly?

I want to make sure that the user can't stop or escape in the middle of the code while parts are unprotected or while specific sheets are unhidden.

It should make sure that everything is protected and the proper sheets are hidden before it will escape from the code.

Thanks for all your help TMShucks!