Macro do Excel 2010 para criar nova planilha e renomear

0

Então, estou procurando pegar a folha "Novo" e usá-la como modelo. Eu estou freqüentemente criando novas planilhas, e seria legal automatizar isso um pouco. Até agora, criei uma macro para mostrar a folha de modelo, criar uma cópia, ocultar o original e renomear a nova folha. O problema que estou tendo é que quando eu gravei a macro, eu copiei a célula A2 da folha de início e colei-o no nome da nova planilha. Não pegou a pasta, e sim apenas o nome que foi colado. Existe uma maneira de colar o conteúdo da célula A2 no novo nome da planilha?

Código de macro que tenho até agora.

Sub CreateNewSheet()
'
' CreateNewSheet Macro
'

'
Sheets("New").Visible = True
Sheets("New").Select
Sheets("New").Copy Before:=Sheets(1)
Sheets("New").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Home").Select
Range("A2").Select
Selection.Copy
Sheets("New (2)").Select
Sheets("New (2)").Name = "Raptor"
End Sub

Qualquer ajuda será muito apreciada. E se eu descobrir isso, postarei a resposta.

    
por Ryan Hubbard 06.08.2015 / 22:05

1 resposta

1
Sub CreateNewSheet()
'
' CreateNewSheet Macro
'

'
Sheets("New").Visible = True
Sheets("New").Select
Sheets("New").Copy Before:=Sheets(1)
Sheets("New").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("New (2)").Select
Sheets("New (2)").Name = Sheets("Home").Range("A2").Value
End Sub
    
por 07.08.2015 / 23:43