Active X button changing the caption of the button

[Romano_odK]

Good evening,

What I would like to achieve is that when I push the active x button, the text in the button changes on based on the text that here is in it at the moment. What I also would want to happen is that a few other macro lines will execute.

So when the buttons says "Filter", change it to "Undo" and then execute a few other lines... when I click the button with "Undo", the text changes to "Filter" and execute a few other macro lines.

Can this be done?

Thank you for your time and efforts,

Kind regards,

Romano

 

[John_w]

Like this (with the button named as CommandButton1):

Private Sub CommandButton1_Click()
    Select Case CommandButton1.Caption
        Case Is = "Filter"
            CommandButton1.Caption = "Undo"
            'add more lines here
        Case Is = "Undo"
            CommandButton1.Caption = "Filter"
            'add more lines here
    End Select
End Sub

 

[Romano_odK]

Like this (with the button named as CommandButton1):

Private Sub CommandButton1_Click()
    Select Case CommandButton1.Caption
        Case Is = "Filter"
            CommandButton1.Caption = "Undo"
            'add more lines here
        Case Is = "Undo"
            CommandButton1.Caption = "Filter"
            'add more lines here
    End Select
End Sub

Thank you, this does exactly what I need.
Have a nice day,

Romano

 

[Romano_odK]

Thank you, this does exactly what I need.
Have a nice day,

Romano

Oh one little question, can I combine a cell, say cell A1 which contains the value 3 to show in the button too. So say " Filter 3"

Thank you again for your time.