Hide & unhide rows

[timesareGMT]

Hi all,

I create a calculation page on which the final result displays in cell D21.

How can I set up a macro to:
1. If D21 < 0.5, hide rows 22 to 28.
2. If D21 > 0.5, unhide rows 22 to 28.

And, how can I prevent the assigned macro from being stopped running when I password protect the spreadsheet?

Thanks a lot.

 

[Rick Rothstein]

I think this Change event code may be what you are looking for...

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Cell As Range
  If Not Intersect(Range("D21").Precedents, Target) Is Nothing Then
    Rows("22:28").Hidden = Range("D21").Value > 0.5
  End If
End Sub

Just to reiterate, this code goes in the worksheet module for the worksheet you want to have this functionality on (it does not go in a standard module). To get to this module, right click the name tab at the bottom of the worksheet you want to have this functionality and click on "View Code" on the popup menu that appears... copy/paste the code into the code window that just opened up.