Boa noite, vonzuben

Olha, faz o seguinte coloque estes trechos abaixo:

Application.ScreenUpdating = False
Application.EnableEvents = False

Antes do "Dim" referente ao Procedimento "Change" da Planilha1:

Private Sub Worksheet_Change(ByVal Target As Range)

E no final não esqueça de colocar:

Application.ScreenUpdating = True
Application.EnableEvents = True

Com isso resolve o seu problema que citou na mensagem acima.

Espero que seja isso que queria

Aguardando sua resposta e seu Feed Back (é muito importante) ... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB

Nossa, nem reparei que tinha esquecido essas linhas, pois nas outras plans eu coloquei

Application.ScreenUpdating = False
Application.EnableEvents = False

Application.ScreenUpdating = True
Application.EnableEvents = True

Só coloquei as linhas acima e parou

Só não entendi essa linha, pois no topo já tem
Private Sub Worksheet_Change(ByVal Target As Range)

Obrigado !

Bom dia, vonzuben

Opa que bom que resolveu .

Em relação a linha que citei, era somente para identificar o local onde colocar os trechos do código .

Não esqueça de clicar na "mãozinha" na mensagem que resolveu o seu problema

E também não esqueça de "colocar" como resolvido o seu Tópico .

Qualquer coisa estamos aqui para ajudar

LaerteB