Excel Renomear Aba de Excel automaticamente

[Paulo Eduardo Severo]

Olá, preciso de ajuda para montar uma planilha, não sei se é possível fazer uma macro mas lá vai kkk...

 

Tenho uma lista com vários nomes numa coluna na primeira aba que vai ser a principal, Ex: "Nome 1", "Nome 2" e "Nome 3".

Quero que surjam abas automaticamente nomeadas conforme os nomes dessa lista, cada nome uma aba nova, e se possível que a cada nome que eu insira na lista, a aba surja automaticamente com o respectivo nome.

Gostaria de saber se tem como fazer isso ou algo próximo, agradeço desde já.

[André_Arruda]

Sub add_new_sheets()

On Error Resume Next

Dim ws As Worksheet
Dim rng As Range

Set ws = Sheets("Resumo")
Set rng = ws.Range("A2:A" & ws.Range("A" & Rows.Count).End(xlUp).Row)

Debug.Print ws.Name, rng.Address

For Each celula In rng

    If celula.Value <> "" Then
        Sheets.Add
        ActiveSheet.Name = celula.Value
    End If
Next

End Sub

 

[tamycs94]

@André_Arruda Eu também precisei fazer a mesma que o autor do post em uma outra oportunidade e essa postagem, assim como sua resposta super ajudou e funcionou!!

Testei e deu certo, a única coisa é que as abas ficaram em ordem z-a, por exemplo, considerando a imagem do autor, as abas ficaram na ordem da célula "A25,A24.A23..."Resumo". teria como ficar na ordem a-z? celula "a2,a3, a4"....

Desde já, obrigada!

[OreiaG]

Veja se atende.

 

Sub CriaRenomeiaPlanilhas()
 Dim c As Range
  Application.ScreenUpdating = False
  For Each c In ActiveSheet.Range("A2:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
   Sheets.Add after:=Sheets(Sheets.Count)
   ActiveSheet.Name = c.Value
  Next c
End Sub

 

[tamycs94]

Mara, deu certo sim!!

Muito obrigada.