Boa noite!!

Poste seu arquivo modelo!!

Att

Não sei se entendi,
no caso vc quer que toda vez que clicar na ABA Ex. Plan3 uma macro entre em ação
se for isso e vc já tem o código que atualiza.
a macro aciona quando ativa a Plan3 e outra quando sai da Plan3.

Att.

nem tinha lido direito, mas é isso mesmo
Private Sub Worksheet_Activate()
End Sub
no caso vc pode estar fazendo algo errado, ou colocando a macro no lugar não correspondente.

Boa tarde Leandro e Edcrono

NÃO CONSEGUI COLOCAR AS PLANILHAS POIS SÃO GRANDES.

Estou colocando abaixo o erro que deu quando clico na aba "planilha de estoque"

Private Sub Worksheet_Activate()
MsgBox "Atualizando pran8"

Sub Atualizar()
Workbooks.Open Filename:="C:Userscpm_j_000DesktopCONTROLE A.xlsm", _
UpdateLinks:=True
End Sub

APARECE UM ERRO

"ERRO DE COMPILAÇÃO: ERA ESPERADO END SUB"

Ed cronos, eu quero que que quando clicado" conforme você colocou abaixo está correto, mais que não apareça mensagem, quero que ao clicar naa aba ela continue e a atualize em a planilhas no caminha abaixo:

Se fosse só atualizar conseguiria com a fórmula abaixo, mais preciso atualizar quando eu clico na aba.
Sub Atualizar()
Workbooks.Open Filename:="\servidorLaboratórioPastas Usadas No LaboratórioCONTROLE para identificar bags e amostras.xlsm", _
UpdateLinks:=True

Alguém poderia me ajudar

Poderia mandar as planilhas, mais não sei como

Experimente assim:

Private Sub Worksheet_Activate()
MsgBox "Atualizando pran8"
Workbooks.Open Filename:="C:Userscpm_j_000DesktopCONTROLE A.xlsm", _
UpdateLinks:=True
End Sub

Boa noite Reinaldo

Conforme você me mandou abaixo, funcionou mais ou menos.

Private Sub Worksheet_Activate()
MsgBox "Atualizando pran8"
Workbooks.Open Filename:="C:Userscpm_j_000DesktopCONTROLE A.xlsm", _
UpdateLinks:=True
End Sub

Está abrindo certinho, só que está aparecendo a mensagem "Atualizando plan8" TEM COMO TIRAR ESTA MENSAGEM?

E quando vai atulizar essa planilha( Workbooks.Open Filename:="C:Userscpm_j_000DesktopCONTROLE A.xlsm",) a planilha é aberta para atualizar os valores. Teria como atualizar os valores sem abrir a planilha?

Bom dia!!

Remova a mensagem assim

Private Sub Worksheet_Activate()
Workbooks.Open Filename:="C:Userscpm_j_000DesktopCONTROLE A.xlsm", _
UpdateLinks:=True
End Sub

Att

Boa tarde

Conseguir resolver deste jeito.

Private Sub Worksheet_Activate()
'
' clicaraaaa Macro
'

'
Sheets("Plan5").Select
ActiveWorkbook.UpdateLink Name:= _
"\servidorLaboratórioPastas Usadas No LaboratórioCONTROLE para identificar bags e amostras.xlsm" _
, Type:=xlExcelLinks
End sub

Obrigado a todos