Ciao Peppo e complimenti per il file.
Se posso chiederti: nel file vedo solo questa macro
vb
Sub Ripristina()
On Error Resume Next
Application.CommandBars.ExecuteMso ("SortClear")
Range("B8").Select
End Sub
e niente altro.
Puoi spiegarmi più in dettaglio come hai realizzato il file?
Ti ringrazio.
Alfredo