- Codice: Seleziona tutto
Columns("C:D").Select
'Application.CutCopyMode = False
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlNo
(Se la cella C1 contiene un header, allora usa Header:=xlYes)
Se ancora va in errore, guarda quale e' il range al momento selezionato (dovrebbe essere [C - D], ma ...).
Facci sapere, ciao.
*** ho editato, il grassetto, prendeva l'emoticons al posto della colonna, in questi casi invece di usare i : mettete un trattino