Bom dia!!
Eu vou ver o que posso fazer.
Quanto sua rotina tente..
Private Sub Worksheet_Calculate()
For Each cell In Range("AB1:AB70")
If cell.Value = "Ocultar" Then cell.EntireRow.Hidden = True
Else: cell.EntireRow.Hidden = False
End If '<-- faltou
Next
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 12/02/2013 7:13 am