Anyone code there?

[agonysWeeper]

Anyone has a code that make zoom setup like my 50 sheets in 1 workbook 45 of them coding to be the same zoom such as 75%.

 

[Andrew Fergus]

Hi

Rather than use code, you can select all of the sheets by right clicking one of the sheet names > select menu option 'Select All Sheets' > then set the zoom to 75%. This will change the zoom for all sheets. To change it to something else for the other 5 sheets is now not such a big task.

Andrew

 

[Weaver]

Something like this maybe:

Sub Macro1()
    Application.ScreenUpdating = False
    'records current sheet
    Set c = ActiveSheet
    'sets all zooms to 75%
    Sheets.Select
    Sheets(1).Activate
    ActiveWindow.Zoom = 75
    'set smaller list of selected sheets to alternate zoom (change to suit)
    a = Array("Sheet1", "Sheet2", "Sheet3")
    Sheets(a).Select
    Sheets(a(0)).Activate
    ActiveWindow.Zoom = 200
    'returns view to starting sheet
    c.Activate
End Sub