Knop sorteren

[neveho]

Hallo,
Ik heb een tijdje terug ook een vraag geplaatst en was snel opgelost dus mijn eerste stap brengt mij weer hier.

Ik heb een excelblad met gegevens die ik wil sorteren mbv een knop.
Ik heb een macro gemaakt met een sneltoets dat werkt allemaal maar als ik het toeken aan een knop dan krijg ik een foutmelding in vba.
Kan iemand mij helpen aub

dit is de foutmelding:

Sub Sorteren()
'
' Sorteren Macro
' De macro is opgenomen op 19-4-2010 door schutte.
'
' Sneltoets: CTRL+s
'
    Range("C7:I200").Select
    Selection.Sort Key1:=Range("E7"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveWindow.LargeScroll Down:=-6
    Range("F1").Select
End Sub

het bestand is te groot om als voorbeeld mee te zenden

 

[HSV]

De code werkt goed bij mij.

Kan wel iets korter.

Sub Sorteren()
[C7:I200].Sort Key1:=[E7], Order1:=xlDescending
[F1].Select
End Sub

 

[Warme bakkertje]

Nog minder typewerk

Sub Sorteren()
[C7:I200].Sort [E7], xlDescending
[F1].Select
End Sub

 

[HSV]

Nog minder typewerk

Ik wil me nog steeds een VBA boek aanschaffen, maar kom er niet aan toe.
Maar volgens mij heeft het ook geen zin, want hier leer ik meer.

 

[neveho]

geniaal, het werkt
thanx, hsv en warme bakkertje:thumb::thumb::thumb:

 

[Hoornvan]

neveho,

Het is wel de bedoeling als de vraag naar tevredenheid is opgelost.
Zo te zien aan je reactie is dit het geval, dat je dan de vraag ook als opgelost zet.