Hide/Unhide Column based on Cell Value

[xlingg]

Hi All,

I have been trying to look for a code to hide/unhide resignees on a click. I found a code but it only hide resignees but wouldn't show resignees upon clicking button again.

This is what I have:

Public Sub HideResignee()
    Dim cell As Range, unionRng As Range
    For Each cell In ActiveSheet.Range("CX14:CX1013")
        If cell.Value = "Resignee" Then
            If Not unionRng Is Nothing Then
                Set unionRng = Union(unionRng, cell)
            Else
                Set unionRng = cell
            End If
        End If
    Next
    If Not unionRng Is Nothing Then unionRng.EntireRow.Hidden = True
End Sub

Appreciate any help! Thanks in advance!!

 

[jasonb75]

Try changing the last line to

If Not unionRng Is Nothing Then unionRng.EntireRow.Hidden = (unionRng.EntireRow.Hidden = False)

I haven't tried it with a non contiguous union range so not sure how well it will work with your code, especially if you change a new visible row to "Resignee" while the existing ones are hidden.