non visualizzare la selezionare

Option Explicit

'per ordinare ascendente
Sub ordina_ascendente1()


Application.ScreenUpdating = False

ActiveSheet.Unprotect "123456"

 Range("A2:c5000").Select '<<<--- celle da trovare valide '<<<<<<<<<<<<
    Range("A2:c5000").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
       
  ActiveSheet.Protect "123456"
     
  
Application.ScreenUpdating = True


End Sub

'per ordinare discendentre
Sub ordina_discendente1()


Application.ScreenUpdating = False

ActiveSheet.Unprotect "123456"

 Range("A2:c5000").Select '<<<--- celle da trovare valide '<<<<<<<<<<<<
 

    Range("A2:c5000").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        
 ActiveSheet.Protect "123456"
 

Application.ScreenUpdating = True


End Sub

 Range("A2:c5000").Select