Eu sou meio novo em programação em VBA. Eu li algumas coisas na internet, mas não consegui encontrar o que eu precisava ou não consegui fazê-lo funcionar. meu problema

na planilha 'planilha 1' na célula B6, um valor é fornecido por quantos anos um projeto será explorad

na planilha 'planilha 2' e 'planilha 3' fiz uma planilha por 50 anos (ano 1 ao ano 50; linha 7 à linha 56

na célula b6 na 'planilha 1', quero inserir um valor entre 1 e 50. quando o valor for 49, quero ocultar a linha 56 na 'planilha2' e 'planilha 3'. quando o valor é 48, quero ocultar as linhas 55:56 em 'sheet2' e 'sheet 3' e assim por diante. isto é o que obtive até agora, mas não consigo fazê-lo funcionar automaticamente quando altero o valor na célula B6:

Sub test1()
    If Range("sheet1!B6") = 50 Then
    Rows("52:55").EntireRow.Hidden = False
    Else
    If Range("sheet1!B6") = 49 Then
    Rows("55").EntireRow.Hidden = True
    Else
    If Range("sheet1!B6") = 48 Then
    Rows("54:55").EntireRow.Hidden = True

    End If: End If: End If:

    End Sub

spero que alguém possa me ajudar com o meu problem

Obrigad