RemoveDuplicates gives 1004 error

Question

I want to remove duplicates from my selection, but this line gives me a 1004 error:

ActiveSheet.Range("B3", Range("B3").End(xlDown)).RemoveDuplicates Columns:=2, Header:=xlNo

How do I fix this?

Solution

Change your line into:

ActiveSheet.Range(range("B3"), Range("B3").End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlNo

or,if you really have 2 columns into:

ActiveSheet.Range(range("B3"), Range("C3").End(xlDown)).RemoveDuplicates Columns:=2, Header:=xlNo