Hiding and unhiding column automaticaly when a cell value changes

Originally Posted by evilrtc

I found this thread and I need something for a sheet I'm working on that is very similar. What I need to do though is hide an entire row if one cell in that row contains a certain word.

How would I modify the above code to do this?

Hi,

Try

Sub Macro1()
' Hide Rows
Dim iRow As Long
Dim iLastRow As Integer
With ActiveSheet
iLastRow = ActiveSheet.Range("A65536").End(xlUp).Row
For iRow = iLastRow To 1 Step -1
    If .Cells(iRow, 1) = "a certain word" Then
        .Rows(iRow).EntireRow.Hidden = True
    End If
    Next
    End With
End Sub

will work for the A cell of the row, but I'm not sure how that fits into a thread for columns.

Do you need the code to test any other cells? - is the 'word' the only content of the cell? - you need to confirm what is required.

hth
---