VBA Zoom to Selection

[rickwithers]

I have the following code to try to zoom to a selection dependent on the worksheet being opened:

zArea = "A1:" & Range("BA6").value (Sets String zArea to A1: and the last cell in range as given in cell BA6 on each worksheet)

Range(zArea).Select

ActiveWindow.Zoom = True

The problem I have is the correct sheet opens, but the zoom level defaults to 400% at cell A1. For one particular worksheet, cell BA6 = AH61, therefore zArea = A1:AH61. Using MsgBox confirmed the value, however, the Zoom property doesn't accept it. Any suggestions?

 

[shg]

Not my question -- is it selected?

 

[rickwithers]

Sorry, now I got you. No it is not selected.

UPDATE: Yes it is selected, once I commented out the ActiveSheet.Protect

 

[rickwithers]

MrExcel MVP

Thanks for nudging me in the right direction. After commenting out the ActiveSheet.Protect line in the Open_Ref module, it appears to work. I'm not sure why the protection was added except to prevent manipulation of any formulae in the wprksheets. I guess I'll just have to trust users not to mess it up.

Again, thanks for the guidance; it helped start me thinking and along with the help of everyone replying to this post, get the problem solved.

 

[shg]

Just protect after doing the zoom.