Remove duplicate email from multiple column

Hi

I am trying to remove duplicate email from 16 column of excel file. I have tried remove duplicate,data validation,highlighted duplicate then filter but nothing work for my problem as I dont have same raw. All column has only email address. How can i do it? VBA? I have tried this VBA code. Seems nothing happen after running.

Sub RemoveDups()

Dim ws As Worksheet
Dim col As Range

For Each col In Sheet2.Range("A:M").Columns
Sheet2.Range(col.Address).RemoveDuplicates Columns:=1, Header:=xlNo
Next col

End Sub

Any help would be appreciated

Select range and remove duplicates.

Hello again,

I have this code that will convert the range of cells to one column. Insert the new module and assign it to a shape to launch the macro. It will ask for a range to convert which you select. Then it will ask you for a single cell. Select the first cell in the column you want. It will fill down the range. Then highlight the column and you can select remove duplicates from the ribbon.

I hope this helps,
Joe

Sub ConvertRangeToColumn()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "Convert to Column"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub