Ik krijg een foutmelding in excel 2003
Run-time error '438'
Object doesn't support this property or method
Als je gaat debuggen dan geeft hij volgende regel aan :
ActiveWorkbook.Worksheets("Lotto 10").Sort.SortFields.Clear
enig idee wat dit kan zijn?
Sub sorteren()
'
' sorteren Macro
' Sorteert van groot naar klein.
'
'
Range("B3:M53").Select
Range("M3").Activate
ActiveWorkbook.Worksheets("Lotto 10").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Lotto 10").Sort.SortFields.Add Key:=Range("M3"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Lotto 10").Sort
.SetRange Range("B3:M53")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub