Need to delete Duplicate columns

Help
12

Use Invoke VBA Activity Inside Excel Application scope. Inside this provide the Text file path, Macro name & SheetName inside Properties panel. And Paste the below macro code inside Text file.

Sub Delete_Duplicate_Columns(SheetName as String)
Dim lastCol As Long
Dim thisCol As Long

With Sheets(SheetName)
    lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
    For thisCol = lastCol To 2 Step -1
        If Application.Match(.Cells(1, thisCol).Value, Range(.Cells(1, 1), .Cells(1, lastCol)), 0) <> thisCol Then
            .Cells(1, thisCol).EntireColumn.Delete xlShiftToLeft
        End If
    Next thisCol
End With

End Sub

image
image1366×768 85.7 KB