Vba按钮代码错误

Question

你好我在Line Else的代码有错误我希望它更改标题如果没有输入名称然后退出

Private Sub cmdButton_Click()

    Dim name As String

    With cmdButton

    If .Caption = "CommandButton1" Then

        name = InputBox("Enter Template Name.")

    End If

    If StrPtr(name) = 0& Then Exit Sub

    Else
        .Caption = name

    End If

    End With

    End Sub

Answer 1

If Len(name) = 0 Then  'exit sub if user doesn't enter a name (or cancels)
 Exit Sub
Else
 .Caption = name
End If