Originariamente inviato da leomac
MITICO ICE!!
ho risolto con apllication
appena ho un pò di tempo lo modifico con l'arrey che hai consigliato ch'è più "semplice"
non credo dipenda dal CPU quanto dalla marea di dati nel folgio d'excell...
Puoi sostituire TUTTO quel... , semplicemente con:
codice:
Sub Invert()
   Dim r As Variant, s As Boolean
   Application.ScreenUpdating = False
   s = Rows(10).Hidden
   For Each r In Array(10, 54, 98, 142, 186, 230, 274, 318, 362, 406, 450, 
494)
      Rows(r).Hidden = Not (s)
   Next
   Application.ScreenUpdating = True
End Sub