Autofit

[verluc]

Waarom krijg ik bij deze code telkens de foutmelding 1004 ?

Sub Workbook_open()
Sheets("Diensten").Select
[COLOR="#FF0000"]Columns("A:N").EntireColumn.AutoFit[/COLOR]
Application.ScreenUpdating = False
ActiveSheet.ScrollArea = "A4:N1200"
    With ActiveSheet.Range("A4:D1200").Font
        .Name = "Verdana"
        .Size = 10
        .FontStyle = "vet"
        .ColorIndex = 0
    End With
Application.ScreenUpdating = True
End Sub

Met dank voor alle suggesties

 

[Cobbe]

Je select blad 'Diensten' en dan doe je er verder niets mee. Ofwel activeer je dat blad en werkt uw code ofwel geef je een rec htsreekse opdracht zonder select en/of activate
.
Maak van 2 regels één:

Sheets("Diensten").Columns("A:N").EntireColumn.AutoFit

 

[verluc]

Sorry Cobbe, maar met volgende code krijg ik steeds dezelfde foutmelding 1004

Sub Workbook_open()
Sheets("Diensten").Columns("A:N").EntireColumn.AutoFit
Application.ScreenUpdating = False
ActiveSheet.ScrollArea = "A4:N1200"
    With ActiveSheet.Range("A4:D1200").Font
        .Name = "Verdana"
        .Size = 10
        .FontStyle = "vet"
        .ColorIndex = 0
    End With
Application.ScreenUpdating = True
End Sub

Enig idee ?

 

[Cobbe]

Bestaat uw blad 'Diensten' wel, of is je blad beveiligd?

 

[verluc]

Inderdaad, Cobbe, mijn blad moet op een of andere manier ongezien, beveiligd zijn geweest.
Werkt thans zoals het moet en beter nog één regel minder dank zij U suggestie waarvoor mijn dank.