Foutcode 1004 Methode autofilter van klasse range mislukt

[DDG]

Hallo,

Een paar dagen terug had ik een macro opgenomen voor het automatisch sorteren bij het openen het Excel-bestand. Sinds vandaag krijg ik een foutmelding, namelijk: Foutcode 1004 Methode autofilter van klasse range mislukt. Ik kan de fout niet achterhalen. Wellicht kan iemand mij helpen.

Sub AutoRunMacro()
'
' Autorun Macro
'

'
Selection.AutoFilter

ActiveWorkbook.Worksheets("Monitoring").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Monitoring").AutoFilter.Sort.SortFields.Add Key:= _
Range("AY2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Monitoring").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.AutoFilter
End Sub


En voor autorun

Private Sub Workbook_Open()
AutoRunMacro
End SubBekijk bijlage Voorbeeld inclusief macro2.zip

 

[HSV]

Afgezien het feit dat het bestand erg traag is.

De code in Thisworkbook verwijderen en onderstaande plaatsen in een standaard module (werkt hetzelfde als Thisworkbook_open() event).

Sub auto_open()
 Sheets("Monitoring").Cells(1).CurrentRegion.Sort [AY1], , , , , , , 1
End Sub