Remove Duplicates Multiple Columns

[trough]

I cannot figure out why I am getting a "Subscript out of range" error with this line:

WS.Range(Cells(1, 1), Cells(5, 3)).RemoveDuplicates Columns:=Array(2, 3), Header:=xlNo

 

[trough]

More:

This works:
Range(Cells(1, 1), Cells(5, 3)).RemoveDuplicates Columns:=2, Header:=xlNo

But this doesn't:
Range(Cells(1, 1), Cells(5, 3)).RemoveDuplicates Columns:=Array(2), Header:=xlNo

Why?

 

[SunnyAlv]

why?
because of this

Array(2)

try like this bro

Sub www()

Dim ws As Worksheet
Dim ar As Variant
Set ws = ThisWorkbook.Sheets("Sheet2")

ar = [{1,2}]

Range(Cells(1, 1), Cells(5, 3)).RemoveDuplicates ar(1), Header:=xlNo

End Sub

 

[trough]

That did it! Thanks.

 

[trough]

But how would I build a string of multiple columns, Ex. MyStr="1,3" -> ar="[{" & MyStr & "}]", that would be accepted by the RemoveDuplicates command? It doesn't seem to like a string.

 

[Fluff]

This code will fail if the sheet is not the active sheet

WS.Range(Cells(1, 1), Cells(5, 3)).RemoveDuplicates Columns:=Array(2, 3), Header:=xlNo

it should be

WS.Range(WS.Cells(1, 1), WS.Cells(5, 3)).RemoveDuplicates Columns:=Array(2, 3), Header:=xlNo