De qualquer forma insira esse codigo em um botao.
Tem duas opções veja o que mais lhe atende.
'Insere uma nova planilha em Branco.
Sheets.Add After:=Sheets(Sheets.Count)
'Copia uma planilha ja formatada.
Sheets("Plan1").Copy After:=Sheets(Sheets.Count)
'Nomeia a planilha ativa de acordo com o nome da combobox1
ActiveSheet.Name = combobox1.Value
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 : 17/01/2017 5:49 pm