juist geselcteerde cel bij opstarten

[bowlingman]

Hallo,
Ik ben een progje ineen aan het knutselen om de lotto en de euromillions na te zien.
In mijn Workbook heb ik de volgende code gezet :

Private Sub Workbook_Open()
    Sheets("Lotto").Activate
    With Sheets("Lotto")
        Range("A1").Select
    End With
End Sub

Mijn progje start dus steeds op met de eerste sheet ("Lotto")
Hierop heb ik rij 1 en kolom a verborgen, zodat je de geselecteerde cel A1 niet ziet, kwestie van een sheet te hebben zonder geselecteerde cel in het zicht.
Nu wil ik op de tweede sheet ("Euromillions") dat hier ook automatisch cel A1 wordt geselecteerd met hetzelfde doel.
Heb al alles uitgeprobeerd om dit dus ook te doen maar het lukt mij niet.
Hoe kan ik bovenstaande code aanpassen zodat dit dus bij het opstarten op de beide sheets gebeurt.
Of is dit niet mogelijk.

Grtjs.
Bowlingman

 

[HSV]

Dat kun je d.m.v. Private Sub Worksheet_Activate() toch realiseren?

 

[bowlingman]

Hallo Harry,

Bedankt voor de tip. Is weeral opgelost.
Moest gewoon de private sub Worksheet_Activate() in de code van de desbetreffende sheet zetten.
Hiervoor probeerde ik het in de code van het workbook zelf en daarom lukte het mij niet.

Grtjs.
Armand