[VB6] Velocizzare il codice

[leomac]

A dire il vero ho risolto così:

Sub Casetto_Extra()
Application.ScreenUpdating = False
Dim Riga As Variant
For Each Riga In Array(10, 54, 98, 142, 186, 230, 274, 318, 362, 406, 450, 494)
    If Rows(Riga).Hidden = True Then
        Rows(Riga).Hidden = False
    ElseIf Rows(Riga).Hidden = Flase Then
        Rows(Riga).Hidden = True
    End If
Next
Application.ScreenUpdating = True
End Sub

sarà che son fissato con le If...
cmq thx lo stesso