Evento Change em Excel

Já imaginou em alterar um dado quando outro é inserido? isso é possivel em Excel você sabia?

Então vamos ao código

Private Sub Worksheet_Change(ByVal Target As Range)
Dim linha As Integer
Dim coluna As Integer

' Usamos o argumento Target para saber qual campo foi alterado.
coluna = Target.Column
linha = Target.Row

' Executa a função calculo se campo B5 foi alterado.
If (linha = 5 And coluna = 2) Then
ocultar
End If

End Sub
Function ocultar()

Rows("7:7").Select
Selection.EntireRow.Hidden = True
'altere para false se quiser reexibir

End Function


Insira este código dentro da planilha que você utilizará pelo alt+f11