Cole esse codigo em um modulo

Sub Criar()

Dim QTD As Integer
Dim WSPlan As Worksheet
Dim Nome As String
Dim Cont As Integer

QTD = InputBox("Digite a Quantidade", "Quantidade")
Cont = 1

For a = 2 To QTD

Sheets.Add After:=Sheets(Sheets.Count)

Next

Nome = InputBox("Digite o Nome", "Nome")

For Each WSPlan In Worksheets

WSPlan.Name = Nome & " " & Format(Cont, "00")

Nome = Nome + 1
Cont = Cont + 1

Next

End Sub

Prudencio, muito obrigado pelo retorno amigo!

É quase isso... a macro está criando novas planilhas, eu preciso que ela copie a planilha ativa!

Mas é isso mesmo.

Como eu faço para que ela copie?

Obrigado amigo

Tentei alterar:

Sheets.Add After:=Sheets(Sheets.Count)
Para
Sheets.Copy After:=Sheets(Sheets.Count)

Até copia, mas não copia com a quantidade que eu informo. A macro está se perdendo!

Aguardo Ajuda
Obrigado

Troque

Sheets.Add After:=Sheets(Sheets.Count)

Por

Sheets("Plan1").Copy After:=Sheets(Sheets.Count)

Mas coloque no mesmo local