Bom dia, a todos!

Minha dúvida, acredito que pode ser de muitos outros iniciantes no vba,

não criei ainda o formulário, mas já gostaria de tirar a duvida de como fazer...

Tenho a (plan1=Pedidos), (plan2=banco de dados), (plan3= cadastro de Produtos),

Gostaria de poder colocar o seguinte código no botão salvar, que quando o codigo do produto for existente em alguma dessa planilhas ela altere o valor quantidade, e se não existir ela cadastre ao mesmo tempo

Sei fazer este código que esta a baixo para cadastrar e alterar, mas o problema é que quando coloco o mesmo para inserir em outra plan ele não funciona, ele funciona o código que vem primeiro, no topo da private sub..

  Plan3.Select
    Range("A2").Select
            
            Set Plan = Worksheets("Cadastroproduto")
            Range("A2").Select
                While ActiveCell <> ""
                    If txtPDcodcliente.Text = ActiveCell Then
                    If MsgBox("CÓDIGO DE produto JÁ EXISTE, DESEJA ALTERAR ALGUM DADOS?", vbYesNo) = vbYes Then
                        Lin = ActiveCell.Row
                            Plan.Cells(Lin, 1).Value = txtPDcodProduto.Value

                            MsgBox "ALTERAÇÃO EFETUADA COM SUCESSO!", , "[ i ] Control Sheet"

                         Exit Sub
                    End If
                    End If
                             
                        ActiveCell.Offset(1, 0).Activate
                    Wend

Então reforço minha pergunta como fazer para usar o mesmo critério de verificação e cadastrar ao mesmo tempo em todas as plan's necessárias????

Atenciosamente,