Boa noite,
Vou colocar o código aqui. Abra um novo arquivo, chame a planilha de 'Exemplo' e depois cole o seguinte código no editor:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Coloque o nome da sua planilha no lugar da palavra Exemplo
If ActiveSheet.Name <> "Exemplo" Then
ActiveSheet.Name = "Exemplo"
End If
End Sub
Para testar vá na planilha e altere o nome.
att,
Postado : 14/02/2017 7:42 pm