Highlighting Duplicates across multiple worksheets

Hi washua

will out the workbook something like

   Dim ws1 As Worksheet, ws2 As Worksheet
    Dim FoundOne As Range, LookInR As Range, LookForR As Range, c As Range
    Dim nr3    As Long, fAddress
    Application.ScreenUpdating = False
    Set ws1 = Sheets("Sheet7")
    Set ws2 = Sheets("Sheet8")

    Set LookInR = ws1.Range("A2:A10")
    Set LookForR = Range(ws2.Range("A2"), ws2.Range("A" & Rows.Count).End(xlUp))

    For Each c In LookForR
        With LookInR
            Set FoundOne = .Find(what:=c, LookAt:=xlPart)
         
            If Not FoundOne Is Nothing Then
                fAddress = FoundOne.Address
              
                Do
                 
                FoundOne.Interior.ColorIndex = 6
                      Set FoundOne = .FindNext(After:=FoundOne)
                Loop While FoundOne.Address <> fAddress
            End If
        End With
    Next c
    Set ws1 = Nothing
    Set ws2 = Nothing
    Set LookInR = Nothing: Set LookForR = Nothing
    Application.ScreenUpdating = True

arrr mac I not to sure if it will work

Attach a sample workbook with dummy data and atleast 2 sheets.