Delete Duplicates in a Column, For all Columns

[Guzzlr]

Hello All
I have this:

Option Explicit
Dim sht As Worksheet

Sub RemoveDuplicate()

    For Each sht In ActiveWorkbook.Worksheets
        If sht.Visible And sht.Name = "Matrix" Then
            sht.Activate
            ActiveSheet.Range("CN:CN").RemoveDuplicates Columns:=1, Header:=xlYes
        End If
    Next sht
    
End Sub

This is working to find and remove duplicates in Column CN. However, I don't know how to loop thru all columns (beginning with column E) to the end of columns where no data exist anymore, to find duplicates in each individual column.
Currently, if I want to find duplicates in Column L, then I change the CN to L and run the macro again...and so on.
Thanks for the help

 

[Guzzlr]

Try this

Sub RemoveDuplicate()
  Dim i As Long, sh As Worksheet
  Set sh = Sheets("Matrix")
  For i = 1 To sh.Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column
    sh.Range(sh.Cells(5, i), sh.Cells(Rows.Count, i)).RemoveDuplicates Columns:=1, Header:=xlYes
  Next
End Sub

OK...I added a row, so now I want to have the code start looking in row 6. So I changed sh.Range(sh.Cells(5, i) to sh.Range(sh.Cells(6, i)...and it works. I now know what it is doing (sh.Cells(6,i) means the code begins in cell A6.
If I were to want the code to begin in say E6, I would change i=6, and keep sh.Range(sh.Cells(6, i), the same. Which I believe would make the code start looking for duplicates in cell E6.

Also...I almost forgot, I changed Header:=xl Yes to No

I believe everything is working correctly, because I now know where the code begins to look for duplicates.
thanks for all the help

 

[Fluff]

Glad we could help & thanks for the feedback

 

[DanteAmor]

Again with pleasure. Thanks for the feedback