Só para um melhor entendimento, você quer criar uma Validação em Lista com "Ativo/não ativo" conforme a relação na Plan2 ou quer somente que se adicione o Status "Ativo" que é o que tem na plan2 ?

Só adicionar Mauro. Para mim bastava.

Obrigado

Agora so para uma simples curiosidade pq nao usar formulas??????????

Se esta nao pode ser enviada a outras pessoas para que a formula nao se altere basta um simples copiar e colar valores

Se eu entendi bem um procv resolve com facilidade.

O unico trabalho é inserir a formula e arrastar sempre que for fazer um novo arquivo.

Depois copia e cola valores e pronto.

Miguexcel, veja se é isto, a rotina utiliza o "Procv" - VLookup para pesquisar e retornar o valor correspondente.

Sub ProcuraAtivos()
    Dim item As Long
    Dim lin As Long
    Dim Lrows As Long
    
    lin = 1
    
    Lrows = Sheets("Sheet2").Range("A1048576").End(xlUp).Row 'verifica qual a ultima celula preenchida
    
    Do While 1
        
        lin = lin + 1
        item = Sheets("Sheet2").Cells(lin, 1).Value
        
        If item = 0 Then
            Exit Do
        Else
            Sheets("Sheet1").Cells(lin, 6) = Application.VLookup(item, Sheets("Sheet2").Range("A2:" & "B" & Lrows), 2, 0)
        End If
    
    Loop

End Sub

Valeu Mauro. Isso mesmo.

Muito Obrigado