Rafael, tu é ninja mesmo. Valeu!

Marcelo, realmente funciona se partir de uma planilha nova. Pessoal muito obrigado pela força.

Wagner, era para o caso de precisar inserir outras guias. Da forma que está funciona na Plan1, mas para funcionar na Plan2 teria que inserir e alterar...

Quando insiro outra guia entra no depurador na linha "ActiveSheet.Name = Target.Value". Obrigado pela atenção.

Wagner, só mais uma coisa, tem como deixar a informação de "plan1" de forma que eu coloque na pasta de trabalho e fique valendo o mesmo códi...

Perfeitamente, Wagner. Muito obrigado!