Hidden Row
 

I am working on an excel document where when a specific cell says no a row
will hide. This is the code I am using:
Private Sub Worksheet_Calculate()
If Worksheets("Interview").Range("A28").Value = "No" Then
Worksheets("Interview").Range("E29").EntireRow.Hid den = True
If Worksheets("Interview").Range("A28").Value = "Yes" Then
Worksheets("Interview").Range("E29").EntireRow.Hid den = False

End Sub

It will run fine when I place a no in the cell and go to the visual basic
and hit play, but I want it to run automatically. I wan the row to hide once
the cell says no, so you don't have to go to the visual basic editor and hit
play. Any suggestions?

thank you,

Dan

Hidden Row
 

Try this

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Target.Address = "$A$28" Then
With Target
If .Value = "No" Then
Me.Range("E29").EntireRow.Hidden = True
ElseIf .Value = "Yes" Then
Me.Range("E29").EntireRow.Hidden = False
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub


--
HTH

Bob Phillips

"Daniel R. Young" wrote in message
...
I am working on an excel document where when a specific cell says no a row
will hide. This is the code I am using:
Private Sub Worksheet_Calculate()
If Worksheets("Interview").Range("A28").Value = "No" Then
Worksheets("Interview").Range("E29").EntireRow.Hid den = True
If Worksheets("Interview").Range("A28").Value = "Yes" Then
Worksheets("Interview").Range("E29").EntireRow.Hid den = False

End Sub

It will run fine when I place a no in the cell and go to the visual basic
and hit play, but I want it to run automatically. I wan the row to hide
once
the cell says no, so you don't have to go to the visual basic editor and
hit
play. Any suggestions?

thank you,

Dan