Pagina einde

[verluc]

Het gebeurt dat soms op "pagina-einde" word gedrukt en alzo een beeldscherm krijgt waarop in blauw staat : Pagina 1,Pagina 2 enz.
Dit kan dan worden teruggezet met "normal" te drukken.
Vraag is : kan dit in een Worksheet_activate macro worden opgenomen dat telkens bij openen van deze sheet het automatisch op
"normal" word gezet. ?
Met dank voor enige aanzet om dit probleem op te lossen (lees : vergemakkelijken)

 

[HSV]

Hallo Verluc,

Als je het even had opgenomen met de recorder was het je ook gelukt.

ActiveWindow.View = xlNormalView

 

[spaarie]

Zoiets?

Private Sub Workbook_Open()
Dim w As Window
Dim sh As Worksheet
For Each sh In Worksheets
sh.Activate
Set w = ActiveWindow
w.View = xlNormalView
Next sh
End Sub

Na je vraag nog een keer te lezen

Private Sub Worksheet_Activate()
Dim w As Window
Dim sh As Worksheet
Set w = ActiveWindow
w.View = xlNormalView
End Sub

 

[verluc]

Beiden mijn gewaardeerde dank voor een correcte oplossing.
Zet de vraag op opgelost !!