Ozb,

Boa tarde!

Seguie pequeno exemplo que faz o que você quer. Veja se é assim.

Perfeitamente, Wagner.
Muito obrigado!

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ódigo para qualquer que seja a plan?
Obrigado mais uma vez.

Não entendi...

Para que funcione em qualquer planilha da pasta de trabalho

Troque o codigo do Wagner de local apague aquele e cole este em esta pasta de trabalho

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

Application.EnableEvents = False
    If Target.Column = 1 And Target.Row = 1 Then
        If Target.Value <> "" Then
            
            ActiveSheet.Name = Target.Value
        Else
            ActiveSheet.Name = "Plan1"
        End If
    End If
    Application.EnableEvents = True

End Sub

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

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 o código VBA.

Curioso aqui funcionou perfeitamente..

Abri uma planilha nova inserir o codigo onde lhe falei e inseri outras guias so executou o codigo qdo alterei A1 da nova planilha.

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

Se funciona em uma nova (so abri pra testar o codigo), vai funcionar em qualquer uma, a nao ser que esteja usando o codigo com alguma adptação.