Remove Duplicates

[Krishnakumar]

Hi All,

Dim a(1 To 3) As Long

a(1) = 1: a(2) = 2: a(3) = 3

'This is not working
ActiveSheet.Range("$A$1:$C$40").RemoveDuplicates Columns:=a, Header:=xlYes

'This works
ActiveSheet.Range("$A$1:$C$40").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes

Any idea why the first one is not working ?

TIA

 

[AlphaFrog]

I found this similar thread...

http://social.msdn.microsoft.com/Forums/en/isvvba/thread/8083f676-d519-4064-a6b6-0680856fd3eb

 

[Krishnakumar]

I found this similar thread...

http://social.msdn.microsoft.com/Forums/en/isvvba/thread/8083f676-d519-4064-a6b6-0680856fd3eb

Thanks !