Linhas para atualizar automaticamente depois que o botão de alternância estiver ativo

Question

Estou tentando fazer o código (abaixo) para que, quando o botão de alternância for clicado, ele mostre as linhas. Mas, há algumas linhas dentro dele que devem ser atualizadas de acordo com outra célula e manter certas linhas ocultas dependendo do valor da célula. O código abaixo funciona, mas as linhas não são atualizadas automaticamente e eu preciso clicar no botão de alternar para ocultar e, em seguida, exibir as linhas. Existe uma maneira de torná-lo vinculado dinamicamente para que ele atualize automaticamente quais linhas ocultar? Obrigado

Dim xAddress As String
xAddress = "55:136"
If Progress.Value Then
    Application.ActiveSheet.Rows(xAddress).Hidden = False
    If Range("I24").Value = "Yes" Then
        Rows("92:102").EntireRow.Hidden = False
        Rows("103:110").EntireRow.Hidden = True
    ElseIf Range("I24").Value = "No" Then
        Rows("92:102").EntireRow.Hidden = True
        Rows("103:110").EntireRow.Hidden = False
    End If
Else
    Application.ActiveSheet.Rows(xAddress).Hidden = True
End If

    

Answer 1

Se Progress for o botão de alternância na Planilha1 junto com todas as faixas, coloque isso no módulo Planilha1

Option Explicit

Private Sub Progress_Click()
    Dim rngI24 As Boolean

    rngI24 = Me.Range("I24").Value2 = "Yes"

    Me.Rows("55:136").Hidden = Me.Progress.Value
    Me.Rows("92:102").Hidden = Not rngI24
    Me.Rows("103:110").Hidden = rngI24
End Sub