foutmelding

[lecxe]

ik heb deze code in mijn This Workbook
Het is de bedoeling zodra de deze excelfile open moet ie naar blad2 springen.

Code werk soms wel en soms niet. Ik krijg een foutmelding en als ik uitvoering beeindig dan sluit ie af.

Private Sub Workbook_Open()
Worksheets("blad2").Select
End Sub

waar ligt dit aan?

 

[Hans123]

Waarom hij fout gaat weet ik niet, lijkt niets te mankeren aan de code.
Wat je kunt proberen om in een moduleblad een macro auto_open op te nemen die hetzelfde doet.

Deze laatste methode gebruik ik altijd, nog nooit problemen mee gehad.

Macro in een moduleblad ziet er dan als volgt uit.

Sub auto_open() 
Worksheets("blad2").Activate
End Sub

 

[LucB]

Probeer eens:

Private Sub Workbook_Open()
Worksheets("Blad2").Activate
End Sub