Ragazzi salve,
ho compilato il seguente codice:
codice:
Sub Casetto_Extra()
' Se le righe sono nascoste scoprile, se sono scoperte coprile
    If Rows("10:10").Hidden = True And Rows("54:54").Hidden = True _
        And Rows("98:98").Hidden = True And Rows("142:142").Hidden = True _
        And Rows("186:186").Hidden = True And Rows("230:230").Hidden = True _
        And Rows("274:274").Hidden = True And Rows("318:318").Hidden = True _
        And Rows("362:362").Hidden = True And Rows("406:406").Hidden = True _
        And Rows("450:450").Hidden = True And Rows("494:494").Hidden = True Then
            Rows("10:10").Hidden = False
            Rows("54:54").Hidden = False
            Rows("98:98").Hidden = False
            Rows("142:142").Hidden = False
            Rows("186:186").Hidden = False
            Rows("230:230").Hidden = False
            Rows("274:274").Hidden = False
            Rows("318:318").Hidden = False
            Rows("362:362").Hidden = False
            Rows("406:406").Hidden = False
            Rows("450:450").Hidden = False
            Rows("494:494").Hidden = False
    ElseIf Rows("10:10").Hidden = False And Rows("53:53").Hidden = False _
        And Rows("98:98").Hidden = False And Rows("142:142").Hidden = False _
        And Rows("186:186").Hidden = False And Rows("230:230").Hidden = False _
        And Rows("274:274").Hidden = False And Rows("318:318").Hidden = False _
        And Rows("362:362").Hidden = False And Rows("406:406").Hidden = False _
        And Rows("450:450").Hidden = False And Rows("494:494").Hidden = False Then
            Rows("10:10").Hidden = True
            Rows("54:54").Hidden = True
            Rows("98:98").Hidden = True
            Rows("142:142").Hidden = True
            Rows("186:186").Hidden = True
            Rows("230:230").Hidden = True
            Rows("274:274").Hidden = True
            Rows("318:318").Hidden = True
            Rows("362:362").Hidden = True
            Rows("406:406").Hidden = True
            Rows("450:450").Hidden = True
            Rows("494:494").Hidden = True
End If
End Sub
in pratica una macro che nasconde/scopre diverse righe in excell.
Dato che per far eseguire tutto il comando ci vogliono ben 3 sec, volevo sapere se c' era qualche modo per velocizzarlo.

Grazie
Ciaociao