Vba Button Code error

Question

Hello I am having an error with this code at the Line Else I want it to change the caption if a name has been entered if not then exit

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

Jeremy Thompson · Accepted Answer · 2014-01-10 01:25:57Z

1

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

answered Jan 10, 2014 at 1:25

Jeremy Thompson

66.3k38 gold badges225 silver badges344 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Dj Covey Over a year ago

Thank you I will accept the answer in 2 minutes when it lets me.

Collectives™ on Stack Overflow

Vba Button Code error

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related