##Evento Worksheet_Activate
Evento Worksheet_Activate
Para utilizar este evento sem entrar em loop, você não pode utilizar o .Select
dentro do evento.
Na verdade, .Select/.Activate/.ActiveCell devem ser evitadas quase sempre (a não ser para ativar eventos ou outras ocasiões que é possível somente com Select).
Então você declara a planilha SINTESE_LOCAL
e insere o valor na célula ou range da seguinte maneira.
Private Sub Worksheet_Activate()
Dim SINTESE_LOCAL As Worksheet
Set SINTESE_LOCAL = ThisWorkbook.Worksheets("SINTESE_LOCAL")
SINTESE_LOCAL.Range("D1") = "L"
End Sub
Você ativa a Macro da seguinte maneira:
Sub Macro1()
Sheets("SINTESE_LOCAL").Select
Sheets("SINTESE_EURO").Select
End Sub