How Do I Hide A Row (if a condition is true) using a Macro ?

[Anthony Fantone]

I'm using MS Office Excel 2003.

I have a spreadsheet with a series of cells that require an input of (Y)es,
(N)o or (H)ide. If the user enters an "H" for hide I want that entire row to
Hide. Is there a Macro I can use to make this happen.

Also, I would need a switch at the top of the spreadsheet that would allow a
user to enter a "U" for "Unhide" so that all hidden rows could be "U"nhidden
and visable again. Is there a Macro I can use to make this happen also ?

Thank You for your help.

 

[Bob Phillips]

This works on H1:H10, adjust to suit

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("H1:H10")) Is Nothing Then
With Target
If .Value = "H" Then
.EntireRow.Hidden = True
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.