acc, Varesino, ho risposto al buio per la soddisfazione di aver scovato il comando di posizionamento su riga 1, e non mi sono accorto del tuo intevento.
Te ne ringrazio e vado a provare anche la tua soluzione.
A tuttora la macro che ho è:
Public Sub SortByString()
Application.ScreenUpdating = False
Range("A1").End(xlUp).Offset(1, 0).Select
Application.ScreenUpdating = False
Dim row As Range
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
For Each row In Selection.Rows
row.Sort Key1:=row, Order1:=xlAscending, Orientation:=xlSortRows
Next row
Application.ScreenUpdating = True
Range("A65000").End(xlUp).Offset(1, 0).Select
End Sub
LEO
https://t.me/LordBrum