Workbook open

[verluc]

Werk reeds verschillende jaren met onderstaande macro. Werkte altijd perfect tot vandaag:

Sub Workbook_open()
Application.ScreenUpdating = False
[COLOR="#FF0000"]Sheets("Portefeuille (10)").Select[/COLOR]
ActiveWindow.Zoom = 70
ActiveSheet.ScrollArea = ("A4:R1000")
Columns.AutoFit
Application.ScreenUpdating = True
End Sub

Wat kan hiervan de oorzaak zijn ?

 

[snb]

De scrollarea kun je in de eigenschap van het werkblad zelf zetten; daar is geen macro voor nodig.
Voor de rest is de macro overbodig.
Zonder geplaatst werkboek is het verder koffiedik kijken.

 

[verluc]

SNB,

Bedankt voor Uw spoedig antwoord.
Wanneer ik de "Scroll Area" in de eigenschap zet dan verdwijnt deze telkens na een heropening;
Voor de rest heb ik deze macro verwijderd.

 

[snb]

Daar heb je gelijk in; wat ik wel heel vreemd vind voor die eigenschap.

Ik zou het zo schrijven:

ActiveSheet.ScrollArea = "A4:R1000"

 

[verluc]

Zeer bedankt SNB,

Deze regel komt dan achter de bedoelde sheet maar onder welke sub ?
Fin e zondag nog.

 

[Cobbe]

Je kan dat achter het betreffende werkblad zetten:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ActiveSheet.ScrollArea = "A4:R1000"
End Sub

 

[verluc]

Zeer bedankt Cobbe en Snb.
Dit zij een duidelijk aantal regels minder dan voorheen en voor hetzelfde resultaat.
Zet als opgelost !

 

[Peekhamer]

die is cool, die kende ik nog niet!