Foutmelding bij openen workbook

[verluc]

Bij openen van "'This workbook" krijg ik foutmelding 57121

Sub Workbook_open()
    With Sheets("Portefeuille (10)")
       ActiveWindow.Zoom = 76
       .ScrollArea = ("A4:R1000")
       .Columns.AutoFit
       .Range("A4").Select
    End With
End Sub

Wat is hier fout mee ?
Bedankt voor elke suggestie !

 

[Cobbe]

Zou dit genoeg zijn?

.ScrollArea = "A4:R1000"

 

[verluc]

Sorry, Cobbe, Uw suggestie resulteert niet in een oplossing.
Toch bedankt voor Uw reactie;

 

[Cobbe]

Het heeft met de naam van uw werkblad te maken pas die even aan of geef hem opnieuw in.

 

[verluc]

Cobbe,

Wanneer ik alles verwijder en enkel het volgende behoud :

Sub Workbook_open()
With Sheets("Portefeuille (10)")
.Range("A4").Select
End With
End Sub

dan werkt alles perfect.
Zeer bedankt !!

 

[snb]

Suggestie:

Sub Workbook_open()
 application.goto Sheets("Portefeuille (10)").Range("A4")
End Sub

 

[verluc]

SNB,

Kan ook bij Uw suggestie de Scrollarea nog worden toegevoegd.
Met dank

 

[snb]

Je had hem er toch zelf uitgehaald ?

Sub Workbook_open()
  with Sheets("Portefeuille (10)")
    .scrollarea="A4:R1000"
    application.goto .Range("A4")
  end with
End Sub

 

[Ginger]

(om even dicht bij je eigen bouwwerk te blijven....) De sheet waar je die selectie wilt maken, moet ook de actieve sheet zijn...

Sub Workbook_open()
    With Sheets("Portefeuille (10)")
        [B][COLOR="#FF0000"].Select[/COLOR][/B]
       ActiveWindow.Zoom = 76
       .ScrollArea = ("A4:R1000")
       [B][COLOR="#FF0000"].UsedRange[/COLOR][/B].Columns.AutoFit
       .Range("A4").Select
    End With
End Sub

Verder zou ik vooral ook aangeven wélk bereik van kolommen er aangepast moet worden. Dat scheelt héél veel tijd bij het openen....

 

[verluc]

Bedankt allen ... weer wat bijgeleerd !!