Hide Duplicate Rows

I am trying to search aspreadsheet for duplicate entries and the hihe the duplicate entry rows so far i have

Private Sub worksheet_activate()

Columns("A:D").Select
Selection.sort Key1:= Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dim R As Long
Dim N As Long
Dim V As Variant
Dim Rng As Range

this will delete duplicate entries but as the cells have formulas in with cell refrences i need to hide the duplicates instead but the change does nothing, i don't get errors but nothing is hidden