Sub CopyUniques()
Dim rng as Range
Set rng = Range(Range("C1"),Range("C1").End(xldown))
rng.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Worksheets("Sheet2").Range("A1"), _
Unique:=True
End Sub


Regards,
Tom Ogilvy


"Bryan" wrote in message
...
say i have a list of transactions in column a i have name,
in column b i have amount, in column c i have currency
code. there are about 20 different currency codes that
show up many times. like.

A B c
IBM $100 USD
SONY $500 JPY
DELL $340 CAD
AOL $100 GBP
NIKE $250 CAD
SPRINT $300 USD
QCOM $500 USD
YAHOO $330 CAD

and so forth..as you can see a currency code can show up
many times in the list. how can i make a list in a new
sheet that contains just the unique currencies that are in
the data. for example in my list there is USD,JPY,CAD,GBP..

i would like to extract this data into a new table that
would be populated by those codes. like

A B C
USD
JPY
CAD
GBP

would appreciate any help.

tks