.Removeduplicates fails, "invalid procedure call"

[donfaison]

I have tried the following but nothing works.

Recording the steps yields
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Range("$A$1:$D$338").RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes
However, actually running the macro I get an error (5) on the last line, "invalid procedure call or argument".
I have tried
Range("$A$1:$D$338").Select
Selection.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes
and just
Range("$A$1:$D$338").RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes
and a couple of minor variations I have seen online line but everything creates the same error. What am I missing?
Windows 10, MS Excel 365

 

[johnnyL]

Did you try:

Range("$A$1:$D$338").RemoveDuplicates Columns:=VBA.Array(1, 2, 3, 4), Header:=xlYes

 

[Fluff]

Windows 10, MS Excel 365

I suggest that you update your Account details (or click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

 

[Fluff]

This line works quite happily for me

ActiveSheet.Range("$A$1:$D$338").RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes

 

[donfaison]

Did you try:

Range("$A$1:$D$338").RemoveDuplicates Columns:=VBA.Array(1, 2, 3, 4), Header:=xlYes

Any idea why adding VBA worked? I've never had to do that before.

 

[johnnyL]

One reason could be if you have
Option Base 1
somewhere in your code.

 

[donfaison]

One reason could be if you have
Option Base 1
somewhere in your code.

Thank you, I do! Now I know what to look out for!