Excel 2010 copiando várias células em folhas vinculadas do VBA

Question

Eu tenho um caderno de trabalho com 5 folhas idênticas filtradas para diferentes listas

Eu vinculei essas planilhas para que uma edição em 1 folha atualizasse todas as outras

Está ligado ao seguinte código

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
Sheets("NEXT SHEET NAME").Range(Target.Address) = Target
End Sub

NEXT SHEET NAME = nome da próxima planilha na pasta de trabalho, criando um loop entre eles

O problema que estou tendo é que eu posso copiar e colar uma única célula, mas se eu tentar copiar vários ou clicar e arrastar para colar em várias células, ele não faz nada. Ele mostra o mouse sobre a pasta, mas não cola, na verdade, mantendo as células em branco.

Alguém tem alguma ideia?

    

Answer 1

"Valor" em falta, tente isto:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'On Error Resume Next
  Sheets("NEXT SHEET NAME").Range(Target.Address).Value = Target.Value
End Sub