Ciao
1001 modi di complicarsi la vita...π
Bastava che al posto delle CkBox usassi un cella di convalida.
Comunque, fai il sort normalmente e poi richiama questa routine (o aggiungi le istruzioni alla fine del sort:
Sub CkBxSort()
For Each cb In ActiveSheet.Shapes
If cb.Type = 8 Then
ActiveSheet.CheckBoxes(cb.Name).LinkedCell = "F" & ActiveSheet.CheckBoxes(cb.Name).TopLeftCell.Row
End If
Next
End Sub
Per quanto ovvio, le ckBox devono essere solo nella col. F, se ne hai altre per altri motivi va corretto il codice.
NOTA: E' INIZIALMENTE INDISPENSABILE che le ckechBox non siano a cavallo di celle (1 ckBx=1 cella)
saluti
[Modificato da dodo47 07/10/2019 16:24]
Domenico
Win 10 - Excel 2016