Sub SelectionToUniqueValuesInNewWB() 'To get unique values from one column into new workbook: Selection.Copy Workbooks.Add Range("A1").PasteSpecial xlPasteValues Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo End Sub
Sub SelectionToUniqueValuesInNewWB() 'To get unique values from one column into new workbook: Selection.Copy Workbooks.Add Range("A1").PasteSpecial xlPasteValues Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo End Sub