Este fórum está sendo desativado

[7Noronha]

Boa tarde Champs!

Existe algum método para fazer um Workbooks. Add já com nome específico?

Pesquisei vários meios e não consegui resultado

Valeu a atenção

[mucascosta]

Veja se é isso: adicionar nova planilha com nome específico...

Código: Selecionar todos

Sub AddAba()
Dim xName As String
Dim xSht As Object
On Error Resume Next
    xName = InputBox("Por favor, insira um nome para esta nova planilha ", "Mucas Sistemas - 2021")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "A planilha não pode ser criada porque já existe uma planilha com o mesmo nome nesta pasta de trabalho"
            Exit Sub
            End If
    Sheets.Add(, Sheets(Sheets.Count)).Name = xName
End Sub

[7Noronha]

Obrigado pelo retorno amigo, mas não resolveu meu problema. Deixa eu tentar explicar melhor. Este é o final do meu processo:

Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("1:3").Select
Range("A3").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

No seu método ele criou uma nova aba, mas minha necessidade seria que criar um novo arquivo ( Workbooks.Add ) e já criar com nome específico.

Obrigado

[mucascosta]

Veja se o anexo lhe ajuda...

[osvaldomp]

Existe algum método para fazer um Workbooks. Add já com nome específico?

Só é possível renomear o arquivo ao salvá-lo.

[7Noronha]

Obrigado @mucascosta me ajudou muito, dei uma editada no código para tirar umas informações que não usaria na minha planilha, mas atendeu muito bem a minha necessidade.