Automatizar macro de ocultar e exibir linhas

Boa tarde a todos!!

Tenho uma planilha de controle de despesas de acordo com o ano que funciona bem com o código abaixo.

ÓDIGO: SELECIONAR TODOS

Sub Ocultar()



Application.ScreenUpdating = False



Dim i As Integer



For i = 1 To 70

Rem Coluna e Valor - neste exemplo Coluna A e valor = 8

If Range("A" & i).Value <> Cells(1, 1) Then

Rows(i & ":" & i).Select

Selection.EntireRow.Hidden = True

Else

End If

Next i

End Sub

-----------------

Sub Mostrar()

Cells.Select

Selection.EntireRow.Hidden = False

Range("B1&quot.Select

End Sub

De acordo com o ano escolhido na célula A1, ele oculta as linhas dos outros anos. Para isso, tenho dois botões que executam as macros de Ocultar e Mostrar.

O que eu queria é o seguinte: Fazer esse macro com worksheet_change na célula A1, fazendo que só de escolher o ano na lista suspensa, já oculte todas as outras linhas dos outros anos. É possivel??

Obrigado desde já a quem puder ajudar!