Hide Audit Columns

[bjw122]

I would appreciate some help with this function. The intent is to hide a whole row if a cell in column 'B' is equal to any of the strings in the array. I'm new, so feel free to change anything but I feel like I'm close. . .

Sub Hide_Audit_Columns()
'
'  If a cell in column 'B' contains any of the audit column names then hide the row.
'

Dim LastRow As Long, RowCnt As Long
Dim ArrCnt As Integer, ForCnt As Integer
Dim rng As Range

Application.ScreenUpdating = False

LastRow = Range("A65536").End(xlUp).Row
arrStr = Array("CREATED_BY", "CREATED_DATE", "SECLAB")
For RowCnt = 1 To LastRow
  Set rng = Range ("B" & RowCnt).MergeArea
  ' Remove any trailing spaces in "B"
  rng.Value = Trim(rng.Value)
  For ArrCnt = LBound(arrStr) To UBound(arrStr)
    If rng.Cells(1,1) = arrStr(ArrCnt) Then
    
    [Code to hide whole row here]

    End If
  Next ArrCnt
Next RowCnt

' Is this next line really necessary?
set rng = Nothing 

Application.ScreenUpdating = True

End Sub

 

[Von Pookie]

One way:

Sub Hide_Audit_Columns()
Dim LastRow As Long, RowCnt As Long

Application.ScreenUpdating = False

LastRow = Range("A65536").End(xlUp).Row
arrStr = Array("CREATED_BY", "CREATED_DATE", "SECLAB")

For RowCnt = 1 To LastRow
    With Cells(RowCnt, "B")
        ' Remove any trailing spaces in "B"
        .Value = Trim(.Value)
        
        Select Case .Value
            Case Is = "CREATED_BY", "CREATED_DATE", "SECLAB"
                Rows(RowCnt).Hidden = True
            Case Else
                Rows(RowCnt).Hidden = False
        End Select
    End With
Next RowCnt
   
Application.ScreenUpdating = True

End Sub