Apply Zoom VBA to Whole Workbook

[SaraWitch]

Hello peeps!

Does anyone know how to apply the following formula to the whole workbook? (I've tried ActiveWorkbook but that didn't work!)

Private Sub Workbook_Open()
ActiveWindow.Zoom = 100
End Sub

Ta very muchly!

 

[RoryA]

Is the Please Note sheet visible?

 

[SaraWitch]

Yes, visible but protected with different password...

 

[RoryA]

That shouldn't make any difference as you aren't trying to do anything to it. That's the only reason I can think of that you would get that error (it's the only Activate line I can see).

 

[SaraWitch]

Okay, I'll revert to my original coding as that's working as expected. Thank you for your help anyway, Rory

 

[RoryA]

I'll revert to my original coding

That was your coding...

 

[SaraWitch]

Coding in post #8 was my original coding and is working as expected. Coding in post #4 is giving me the error.

 

[RoryA]

It’s very confusing if you post code and say it’s causing an error but you’re actually talking about other code. Which line is causing the error?

 

[SaraWitch]

Apologies, Rory.

The code in my post #8 is working (my original).

When speaking of errors, I am referring to the code you kindly offered as a solution in post #4. I don't know which line is causing this, but the error message for this coding (post #4) is:
Run-time error '1004':
Method 'Activate' of object'_Worksheet' failed