Emitir MsgboX

Question

Ola bom dia,

Como implementar esta macro caso o usuário não digita nada ou click em cancelar, Emitir uma MsgBoX e encerrar o procedimento?

Sub CriarAba()
    Sheets(3).Name = InputBox("Digite o nome da nova Planilha:")
    Plan6.Copy Before:=Sheets(3)
    'If Sheets(3).Name = "" Then
 'Else
    'MsgBox "Cancelando Procedimento"
   ' End
 'End If
End Sub

Obrigado.

Answer 1

Sub CriarAba()
    
    Plan_Name = InputBox("Digite o nome da nova Planilha:")
    
    If StrPtr(Plan_Name) = 0 Then
        MsgBox "Cancelando Procedimento"
        Exit Sub
    End If
    
    Sheets(3).Name = Plan_Name
    Plan1.Copy Before:=Sheets(2)
    
End Sub

---

Rafael Kamimura

Answer 2

Sub Botão1_Clique()

Dim Nome As String

    Nome = InputBox("Digite o nome da nova Planilha:")
    
    If Nome = "" Then
    
     MsgBox "Por favor, digite um nome valido para a planilha"
    
         
     End
     
     Else
 Sheets(3).Name = Nome
 Plan1.Copy Before:=Sheets(3)
 
    MsgBox "Planilha criada com sucesso!"
   
    End
     

End If
End Sub

Answer 3

Certíssimo fcvelho

Obrigado.