Boa Tarde, segue conforme pedido...

Sub distribuir_dados()
On Error Resume Next
Dim nome_plan As String
Application.ScreenUpdating = False
Sheets.Add
Do
nome_plan = Application.InputBox("Digite o nome da Plan")
ActiveSheet.Name = nome_plan
If nome_plan = "" Then
MsgBox "Você deve inserir um nome para a nova Planilha!", vbExclamation
End If
Loop Until nome_plan <> ""
ActiveSheet.Range("a1:a5").Value = Plan1.Range("A1:A5").Value
Application.ScreenUpdating = True
MsgBox "Cópia dos dados Realizada com Sucesso!", vbInformation
End Sub

Sub Macro1()
'
' Macro1 Macro
'

'

Dim i As Long

For i = 2 To ThisWorkbook.Sheets.Count
    Sheets("Plan1").Select
    Cells.Select
    Selection.Copy
    Sheets(i).Select
    Range("A1").Select
    ActiveSheet.Paste
    ActiveSheet.Name = InputBox("Informe o nome da planilha " & i)
    Range("A1").Select
    Next i
End Sub

bom dia

agradeço pela ajuda de vocês.

esqueci de anexar o código que eu estou usando.

o código é esse:

  Sub copiar_dados()

'esse código serve para copiar os dados da planilha A,
'criar uma nova planilha,
'renomear essa nova planilha e colar os dados nessa planilha criada.

    Sheets("planilha A").Select
    Cells.Select
    Selection.Copy
    
    ' ajuda nessa parte do código
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Plan2").Select
    Sheets("Plan2").Name = "planilha B"
    ' quando o usuário for criar uma nova planilha,
    'ele vai poder renomear antes de criar,
    'depois que ela for renomeda o conteúdo na aréa de transferência será colado
    
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "teste"
    Sheets("planilha A").Select
    Range("A1").Select
    Sheets("planilha B").Select
End Sub 

Option Explicit

 Sub copiar_dados()

'esse código serve para copiar os dados da planilha A,
'criar uma nova planilha,
'renomear essa nova planilha e colar os dados nessa planilha criada.

    Sheets("planilha A").Select
    Cells.Select
    Selection.Copy
    
    ' ajuda nessa parte do código
    Sheets.Add After:=Sheets(Sheets.Count)
    on error resume next
    ActiveSheet.Name = InputBox("informe o nome da planilha")
    ' quando o usuário for criar uma nova planilha,
    'ele vai poder renomear antes de criar,
    'depois que ela for renomeda o conteúdo na aréa de transferência será colado
    
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    
End Sub

muito obrigado, ficou ótimo.

Por favor, como faço para agora apenas acrescentar esse código na planilha?

código que será acrescentado:

On Error Resume Next
Do
sh = Application.InputBox("Digite o nome da Plan")
Sheets(sh).Select
If ActiveSheet.Name <> sh Then
MsgBox "Digite um nome válido!", vbCritical
End If
Loop Until ActiveSheet.Name = sh

ele obriga o usuário digitar um nome válido.

eu gostaria de juntar o seu código com esse acima (assim quando o usuário for criar a planilha ele será obrigado a criar um nome valido)

muito obrigado.

.............

acredito que me expressei de forma errada

peço desculpas.

Eu não gostaria de inserir todo o código, mas sim apenas a opção de verificar se o nome é aceito pelo excel.

o código que está na última planilha anexa é ótimo, porém eu apenas preciso criar uma validação de nomes digitados.

quando o usuário chegar na parte em que deve digitar o nome da nova planilha, eu preciso que aqui tenha um código para verificar se o nome pode ou não ser aceito pelo excel.

muito obrigado

Mas como assim o nome pode ou não ser aceito?

..............

xlarruda,

o que eu gostaria é o seguinte.

apenas acrescentar uma validação no nome digitado pelo usuário. exemplo: se ele digitar um nome contendo /// ???? o excel vai exibir uma mensagem informando que esse tipo não é aceito e vai obrigar o usuário a digitar um nome aceito.

.............

Em anexo, segue a planilha para você entender o que está acontecendo. Muito obrigado pela atenção.

Private Sub CommandButton1_Click()
   ' MsgBox "Tente criar uma planilha com o nome: planilha teste//////-----????? (crie exatamente com esse nome e sinais) você vai ver que o excel não 'exibe nenhuma mensagem e nem cria a planilha", vbInformation, ""
    
    Sheets("Plan1").Select
    Cells.Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
  Dim NOME As String
inicio:
  NOME = InputBox("informe o nome da planilha")
  
  If Len(NOME) > 31 Then
  MsgBox "Não é permitido nome com mais de 31 caracteres"
  
  GoTo inicio
  End If
  
  If InStr(NOME, "*") > 0 Then
  MsgBox "Não é permitido asterisco no nome"
  
  GoTo inicio
  End If
  
  If InStr(NOME, "?") > 0 Then
  MsgBox "Não é permitido ponto de interrogação no nome"
  
  GoTo inicio
  End If
  
  If NOME = "" Then
  MsgBox "Não é permitido nome em branco"
  
  GoTo inicio
  End If
  
  If InStr(NOME, "/") > 0 Then
  MsgBox "Não é permitido barra no nome"
  
  GoTo inicio
  End If
  
  If InStr(NOME, "") > 0 Then
  MsgBox "Não é permitido barra no nome"
  
  GoTo inicio
  End If
  
    ActiveSheet.Name = NOME
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    
End Sub

Muito obrigado. Resolveu o meu problema