togliere flash

Buonasera a tutti.
Ho questa piccola macro che mi mette in ordine crescente o decrescente delle celle fisse. Quello che chiede, sempre sia possibile oppure con altra macro che quando clicco nel pulsante le celle selezionate non restino con il flash, per farlo andare via mi tocca cliccare in un cella vuota.
Grazie

Ciao Xam99, prova così:

Sub ordina_ascendente()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "xam99"
Range("B6:B15").Select
Range("B6:B15").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.Protect "xam99"
[A1].Select
End Sub


Sub ordina_discendente()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "xam99"
Range("B6:B15").Select
Range("B6:B15").Sort Key1:=Range("B6"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.Protect "xam99"
[A1].Select
End Sub

Mi sembra funzioni bene.
Mille grazie.
Ciao