macro to hide rows

Hi,

I am looking for a macro to achieve the following

Based on the value of Cell C35 either "yes", "no" or ""

if C35="Yes" or ""

Hide rows 37:61

else if C35="No" unhide rows 37:61

It should be possible to toggle between the two conditions

Grateful any help

Ed

Ed

Try this code -Maunual running code requied .eg attached to a button

Sub SetRowVisibleStatus()
   Select Case LCase(Range("c35"))
   Case "yes", ""
      Rows("37:61").EntireRow.Hidden = True
   Case "no"
      Rows("37:61").EntireRow.Hidden = False
   End Select
End Sub

To have macro run when value in C35 changes
Copy the following macro
Right click on sheet name tab
Select View Code
Paste copied macro into VB Sheet Module displayed
Return to Excel & test by changing C35

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Rng As Range
   For Each Rng In Target
      If Not Application.Intersect(Rng, Range("c35")) Is Nothing Then
         Select Case LCase(Rng)
         Case "yes", ""
            Rows("37:61").EntireRow.Hidden = True
         Case "no"
            Rows("37:61").EntireRow.Hidden = False
      End Select
      End If
   Next Rng
End Sub

Mudraker,

That is ideal - thanks very much

Ed