Can you make this code auto sort on sheet activate

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/14/2011 by Southwire
'
' Keyboard Shortcut: Ctrl+Shift+S
'
    Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

thanks

Messiah