Hide Column Meeting a Criteria (in Excel)

Sub HideColumnMeetingCriteria()
    
     '
     ' Hide Column Meeting a Criteria by RG
     '
    Application.ScreenUpdating = False
    
On Error Resume Next

    With ActiveSheet
        For Each cell In Range("H1:IT1")
            If cell.Value Like "*Perm*" Then
                cell.EntireColumn.Hidden = False
            Else
                cell.EntireColumn.Hidden = True
            End If
        Next
    End With
    
    Application.EnableEvents = True
    
End Sub

Remove duplicates in Excel

Remove duplicates in Excel

Sub DeleteDups()
    do while ActiveCell <> ""
    if activeCell.Value = activecell.Offset(1,0).Value then
        ActiveCell.Offset(1,0).EntireRow.Delete
    else
        ActiveCell.Offset(1,0).Select
    end if
    Loop
End Sub