Hide duplicate rows

Originally Posted by VBA Noob

Maybe this code will help

How to add code

Option Explicit
 
Sub DeleteDups()
     
    Dim x               As Long
    Dim LastRow         As Long
     
    LastRow = Range("B65536").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("B1:B" & x), Range("B" & x).Text) > 1 Then
            Range("B" & x).EntireRow.Delete
        End If
    Next x
     
End Sub

VBA Noob

So what if I needed to only hide the duplicate rows temproarily?