Remove Duplicates from Advanced Filter Results

Hello,
I'm a rookie at VBA.
I have the following macro that performs an advanced filter. I want it to take the results from the advanced filter and remove any results that have duplicate values in column 17.

Sub CreateFilteredRange()

Dim lastTransactionCell As String

    lastTransactionCell = Range("Reference!Receipt_Table_Last_Row").Text

    Sheets("Results").Select
    Sheets("Results").Cells.Clear
    ActiveWorkbook.Save
    Sheets("TransactionDataFromWeb").Range("A1",
lastTransactionCell).AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=Range("Reference!Criteria"),
CopyToRange:=Range _
        ("A1"), Unique:=False
End Sub

Thanks in advance for the help!

Hi Joedrummer,

Try changing Unique:=True in the code.
Also, I need to see column 17 as well and would be helpful if you could upload a sample workbook. thanks.



Regards,
DILIPandey
<click on below * if this helps>

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

Hi Joedrummer,

First follow the instructions of MOD and then we can continue. thanks.

Regards,
DILIPandey
<click on below * if this helps>