Methode select van klasse range is mislukt

[tThye]

Beste mensen,

Ik heb een Excel bestand gemaakt en tot nu toe ben ik geen problemen tegengekomen. Vandaag ben ik weer bezig met hetzelfde bestand en krijg ik telkens dezelfde foutmelding (zie bijlage). Ik heb geen idee hoe ik deze melding weg kan krijgen of waar het aan ligt.

Kan iemand mij helpen?

Groeten,

Mark

 

[Warme bakkertje]

Dit werkt perfect voor mij

Private Sub Worksheet_Activate()
With Application
    .ScreenUpdating = False
    With ActiveWindow
        .ScrollColumn = 1
        .ScrollRow = 1
    End With
    Columns("AM:AV").Hidden = False
    For Each c In Range("AM14:AV14")
        If c = "" Then c.EntireColumn.Hidden = True
    Next
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
    End With
    .ScreenUpdating = True
    .Goto [E10]
End With
End Sub