SILVIOFELINTO,

Bom Dia!

Já tentou o evento Activate da Plan?

Segue exemplo.

Já tentou usar, em "EstaPasta_de_trabalho" o Workbook_SheetSelectionChange

E colocar dentro dele um if, assim:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Not ActiveSheet Is Sheets("Plan1") Then call SuaMacro

End Sub

Pessoal,

Desculpem. Não fui muito específico.
Desejo copiar automaticamente da Plan1 para a Plan2 quando mudar da Plan1 para a Plan3 ou Plan4, etc....
A Plan2 ficará oculta. Esta usa os dados da Plan1 filtrando-os em 03 tabelas separadas que vão para os graficoas das outras planilhas.

Grato.

Silvio Felinto

E pq a minha sugestão não serve?

Gtsalikis,

Fiz o teste. Todavia, para funcionar a sua sugestão, e a do Wagner, tenho que necessariamente clicar na Plan2 e mudar o cursor de lugar.
Como disse, quero que a cópia seja feita quando mudar da Plan1 para a Plan3 ou outra, menos a Plan2, a qual estará oculta.

Obrigado

Silvio Felinto

Nesse caso,

Eu não sei como está a tua planilha, mas vc pode usar esse truque:

Em EstaPasta_de_trabalho, inclua algo como:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

ActiveCell.Offset(1, 1).Select

End Sub

Assim, ao selecionar uma planilha, automativamente ela vai selecionar uma nova célula. (A partir desse exemplo, vc pode adaptar algo tb)

Nesse caso, basta apenas colocar o código que enviei no arquivo no evento Worksheet_Activate da Plan3 e apagá-lo do evento Worksheet_Activate da Plan2.