Macro to ckeck duplicated file name

Hi!

i'm trying to creat a macro that looks in column A and B. after that it check if column A have the same file name as B if not it will mart with the color red. and same with the B column.
But i dosent work.

Sub Kontroll()
    Dim Name1 As String
    Dim Name2 As String
    Dim iRow() As Integer
    Dim iRows() As Integer
    Dim i As Integer
    Dim j As Integer
    
    iRow = Sheets("Kontroll").Range("A2").CurrentRegion.Rows.Count
    iRows = Sheets("Kontroll").Range("B2").CurrentRegion.Rows.Count
    
    For i = LBound(iRow) To UBound(iRow)
        For j = LBound(iRows) To UBound(iRows)
            Name1 = Sheets("Controll").Range("A" & i).Value
            Name2 = Sheets("Controll").Range("B" & j).Value
            
            If Name1 <> Name2 Or Name2 <> Name1 Then
                Sheets("Controll").Range.Range("A" & j).Interior.Color = 255
            End If
        Next j
    Next i
End Sub

thx in advance

Sub Kontroll()
    Dim Name1 As String
    Dim Name2 As String
    Dim iRow As Range
    Dim iRows As Range
    Dim i As Integer
    Dim j As Integer
    
    Set iRow = Range("A2").CurrentRegion.Resize(, 1)
    iRow.Select
    Set iRows = Range("A2").CurrentRegion.Offset(0, 1).Resize(, 1)
    iRows.Select
    For i = 1 To iRow.Rows.Count
        For j = 1 To iRows.Rows.Count
            Name1 = iRow(i, 1).Value
            Name2 = iRows(j, 1).Value
            If Name1 = Name2 Then
                iRows(j, 1).Interior.Color = 255
            End If
        Next j
    Next i
End Sub

Hi, newapa,

the start of the loop is set to row 2 of Column A and only checks one column versus the other (alternative would be WorksheetFunction.Countif):

Sub Kontroll()
    Dim i As Integer
    Dim var As Variant
    
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
      var = Application.Match(Cells(i, 1).Value, Columns(2), 0)
      If Not IsError(var) Then
         Cells(i, "A").Interior.Color = 255
'         Cells(var, "B").Interior.Color = 255
      End If
    Next i
End Sub

Ciao,
Holger

ottimo codice ! veramente compatto.