insert excel vb script

[bt707]

I have a scipt like this but not sure how to insert it into excel to use
it, can someone tell me how to put it into excel to be able to use it.

Sub RemoveDupes()

'Add extra Column, "A" becomes "B"
Columns(1).EntireColumn.Insert

'Filter out duplicates and copy unique list to "A"
Range("B1", Range("B65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True

'Add extra Column, "B" becomes "A"
Columns(2).EntireColumn.Delete

End Sub

Thanks for any help

 

[J.E. McGimpsey]

Take a look at David McRitchie's Getting Started page:

http://www.mvps.org/dmcritchie/excel/getstarted.htm