Formula or VBA code to remove duplicates

Sub Reputation()
Dim Problem as Variant
Dim Reputation as Integer
For Each Problem in Forum.Threads
    If Problem.Title = "*[Solved]*" and Solver.Name = "Leon V (AW)" Then Reputation = Reputation + 1
Next Problem
End Sub