In een spreadsheet met alle dagen van de week heb ik de volgende VBA om de zoom in alle tabbladen gelijk te stellen;
Daarom zet ik in per tabblad in cell Q1 de zoom-waarde van het actieve tabblad;
Met het openen van een ander tabblad dacht ik door de volgende VBA de zoom gelijk te stellen
Maar om de een of andere reden mis ik wat.... wie weet raad??
Daarom zet ik in per tabblad in cell Q1 de zoom-waarde van het actieve tabblad;
Code:
Private Sub Worksheet_Deactivate()
Dim a As Integer
a = ActiveWindow.Zoom
Set shts = Sheets(Array("Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrijdag", "Zaterdag", "Zondag"))
For Each sht In shts
sht.Range("Q1").Value = a
Next sht
End Sub
Met het openen van een ander tabblad dacht ik door de volgende VBA de zoom gelijk te stellen
Code:
Private Sub Worksheet_Activate()
ActiveWindow.Zoom = Range("Q1").Value
End Sub
Maar om de een of andere reden mis ik wat.... wie weet raad??