Mais uma vez aproveitando a rotina do Colega Alexandre que você disse que funcionou corretamente para a questão de colocar "Sim" :

Colocamos SIM nos repetidos :

Sub New_Vers_AleVBA()

    Application.ScreenUpdating = False
    
    With Worksheets("Plan1")
    
        For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
        
            If Application.CountIf(Worksheets("Plan2").Range("A2:A" & _
                Worksheets("Plan2").Range("A" & .Rows.Count).End(xlUp).Row), .Cells(i, 1)) > 0 _
                    Then .Cells(i, 7) = "Sim"
                    
        Next i
        
    End With
    
    Application.ScreenUpdating = True
    
End Sub

A mesma rotina ajustamos os ranges (colunas) e trocamos a instrução de colocar "SIM" pela propriedade "Hidden"

Sub Vers_Ale_Hide()
    
    Application.ScreenUpdating = False
    
    With Worksheets("Folha1")
        For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
            
            If Application.CountIf(Worksheets("Folha2").Range("B2:B" & _
                Worksheets("Folha2").Range("B" & .Rows.Count).End(xlUp).Row), .Cells(i, 1)) > 0 _
                    Then Rows(i).Hidden = True
       
        Next i
    End With
    
    Application.ScreenUpdating = True
    
End Sub

Faça os testes e qq duvida retorne

[]s

Bom dia,

não estou a conseguir fazer com que a rotine funcione.

Aparentemente a macro fica a rodar o cursor do rato a "dizer" que está a correr, mas depois quando para, não fez rigorosamente nada.

Alguma sugestão do que pode estar a correr mal?

Obrigado

Boa tarde!!

Veja um exemplo
http://www.sendspace.com/file/ropddz

Att

Boa noite, desculpa ter demorado a responder.

Como sempre voce salvou o meu problema.

Obrigado mais uma vez Alex.

Cumprimentos,

Noel

Bom dia!!

Que bom que resolveu!!

se poder clicar na mãozinha.

Att