Saberexcel - o site das macros

Excel permite criar novas planilhas em um número de maneiras diferentes. E se você deseja criar uma nova planilha e nomeá-la em um único passo? A maneira mais fácil de fazer isso é com uma macro. O seguinte é um exemplo de uma macro que irá pedir um nome e, em seguida, criar uma planilha e dê a essa planilha o nome fornecido.

Sub Adiciona_nome_nova_planiha()
    Dim NovoNome As String
    NovoNome = InputBox("Digite o nome para nova Planilha?")
    If NovoNome <> "" Then
        Sheets.Add Type:=xlWorksheet
        ActiveSheet.Name = NovoNome
    End If
End Sub

Esta macro funciona bem, enquanto o usuário digita um nome de planilha que é "legal" para os padrões do Excel. Se o novo nome não for aceitável para o Excel, a folha de  planilha ainda é adicionada com um número, mas não é renomeado como esperado, voce digita o novo nome.
Há como voce antecipar o código para retornar possíveis erros na nomeação de uma planilha. O código exemplo a seguir irá adicionar a planilha, mas continuo pedindo um nome de planilha, se uma uma incorreta é fornecido.

Sub Adiciona_novo_nome_planiha2()
    Dim PlanilhaAtual As String
    PlanilhaAtual = ActiveSheet.Name

    'Adiciona nova planilha
    Sheets.Add

    'verificando se o nome é valido
    On Error Resume Next

     'Receba o novo nome
     ActiveSheet.Name = InputBox("Nome para nova folha de planilha?")

    'Pergunta novamente se o nome é um nome válido
    Do Until Err.Number = 0
        Err.Clear
        ActiveSheet.Name = InputBox("Tente novamente!" _
          & vbCrLf & "Nome de planilha, esta planilha já existe" _
          & vbCrLf & "Por favor digite outro nome para nova planilha")
    Loop
    On Error GoTo 0

'Volte para onde você começou
'Não é necessário se você não quer voltar
'para onde você começou, mas quer ficar
'sobre a nova planilha

Sheets(PlanilhaAtual).Select

End Sub

 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel