Tenta ajustar esse codigo
Sub Gerar_Planilhas()
On Error GoTo Line_Error
Dim Nome As String
Dim Qtde As Integer
Nome = InputBox("Digite o Nome Da Planilha a ser criada!", "Nome")
Qtde = InputBox("Digite a Quantidade de Planilhas que deseja criar!", "Quantidade")
For i = Qtde To 1 Step -1
Sheets.Add
ActiveSheet.Name = Nome & " " & i
Next
MsgBox Qtde & " Planilhas Criadas!!!", vbInformation, "Concluído..."
Exit Sub
Line_Error:
MsgBox "Código do Erro: " & Err.Number & Chr(13) & "Descrição: " & Err.Description, vbCritical, "Erro Encontrado!"
End Sub
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 25/09/2015 7:52 am