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