Isso pq você não criou uma rotina que acrescente os novos nomes à lista automaticamente..

Tente isso...

muito obrigado pela ajuda.

Certo, por favor, você poderia apenas fazer uma pequena modificação no código abaixo:

código original:

Private Sub CommandButton2_Click()
Dim ul, us As Long
ul = Sheets("Plans").Range("A" & Rows.Count).End(xlUp).Row + 1
us = Sheets.Count
Sheets.Add
Sheets("Plans").Range("A" & ul).Value = ActiveSheet.Name
Sheets("Planilhando").Activate
End Sub

quando eu clicar no botão para adicionar uma nova planilha na pasta de trabalho do excel, eu vou poder escolher o nome da nova planilha.

muito obrigado pela sua grande ajuda.

Segundo as regras deste fórum, não se deve escrever a palavra "ajuda" no título do tópico.

Private Sub CommandButton2_Click()
Dim ul, us As Long
ul = Sheets("Plans").Range("A" & Rows.Count).End(xlUp).Row + 1
us = Sheets.Count
Sheets.Add
On Error Resume Next
ActiveSheet.Name = InputBox("Informe o nome da planilha")
Sheets("Plans").Range("A" & ul).Value = ActiveSheet.Name
Sheets("Planilhando").Activate
End Sub