Sortieren, wenn Tabelle aufgerufen wird

Dazu habe ich einfach folgenden Code eingefügt:

Private Sub Worksheet_Activate()
Range("D9:I29").Select
Range("I9").activate
Selection.Sort Key1:=Range("H10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Leider wird der Code nicht ausgeführt, wenn ich die Tabelle aufrufe. Wo liegt mein Fehler?

Vielen Dank,
Pascal