Adicionar Sheet via VBA

Question

Tenho o codigo abaixo que consegui com um user daqui, mas apresenta erro no botão cancelar.

ADD SHEET

Sub CriarPlanilha()
    Dim ws As Worksheet
    Dim sPlanilha As String
    
    sPlanilha = InputBox("Digite o nome de uma nova Planilha a ser criada:", , "Plan1")
    
    On Error Resume Next
    Set ws = Sheets(sPlanilha)
    On Error GoTo 0
    If ws Is Nothing Then
        Set ws = Sheets.Add
        ws.Name = sPlanilha
       Else
        MsgBox "Já existe uma Planilha com esse nome!", vbCritical
    End If
    
End Sub

Del sheet

Sub ApagarPlanilha()
    Dim ws As Worksheet
    Dim sPlanilha As String
    
    sPlanilha = InputBox("Digite o nome da Planilha a ser excluída:", , "Plan1")
    
    On Error Resume Next
    Set ws = Sheets(sPlanilha)
    On Error GoTo 0
    If ws Is Nothing Then
        MsgBox "Não existe uma Planilha com esse nome!", vbCritical
    Else
        Application.DisplayAlerts = False
        ws.Delete
        Application.DisplayAlerts = True
    End If
   
End Sub

Answer 1

Adicione o comando

    If sPlanilha = "" Then Exit Sub

após o InputBox. 

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

Eh verdade, super simples, mas ficar mais de 2 anos sem utilizar essa linguagem me fez esquecer muita coisa.

Obrigado pela responsta.