Hallo habe ein Workbook mit 23 Sheets, leider verstellen mir die Kollegen immer die Blattansicht nun möchte ich das per Button#
wieder zurückstellen.
Sub Blatt_Zoom()
Dim Bl As Worksheet
Bl = Array("Tabelle12", "Tabelle13";"Tabelle15")
For Each Bl In ThisWorkbook.Worksheets
ActiveWindow.Zoom = 83
Next Bl
Range("A3").Select
End Sub
lg
Sofia
|