Auto Hide Rows

[ExcelRoy]

Hi,

I am looking for some code to implement into a sheet

I would like to auto hide a row if in column "H" it shows "Inactive"

This would be within the ranges A1:H100

Many Thanks

 

[VoG]

Try pressing F9 to force a recalculation.

 

[Zaf]

Also try a slight modification...

There could be a space at the end of the string...

Private Sub Worksheet_Calculate()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To 100
    Rows(i).Hidden = UCase(Trim(Range("H" & i).Value)) = "INACTIVE"
Next i
Application.ScreenUpdating = True
End Sub

 

[ExcelRoy]

sorry guys, neither works?

is there a setting that must be on?

 

[VoG]

1) Macros must be enabled.

2) Events must be enabled. In the code window press CTRL + G to open the Immediate Window and in that window type or paste

Application.EnableEvents=True

then press Enter.

The code works here by the way.