Change .onaction of a button created as part of a macro

[kgkev]

As part of a routine I create a button to perform an advance filter.

With Sheets("Data").Buttons.Add(300, 0, 100, 25)
    .OnAction = "PO_Filterinplace"
    .Characters.Text = "View Supplier"
End With

Rather than having a separate clear filter button I would like to change this button when the filter is active

    .OnAction = "Clear_Filter"
    .Characters.Text = "Clear Filter"

However I am not sure how to interact with this specific button after the initial ".add".

I'm guessing there must be a way of naming the button, but am not sure of the syntax.

Appreciate any support you can offer.

Thanks

 

[kgkev]

Just worked it out...

With Sheets("Data").Buttons.Add(300, 0, 100, 25)
    .Name = "PO_Filterinplace"
    .OnAction = "PO_Filterinplace"
    .Characters.Text = "View Supplier"
End With

With Sheets("Data").Buttons("PO_Filterinplace")
    .OnAction = "Clear_Filter"
    .Characters.Text = "Clear Filter"
End With

Sub Clear_Filter()
Sheets("Data").ShowAllData
With Sheets("Data").Buttons("PO_Filterinplace")
    .OnAction = "PO_Filterinplace"
    .Characters.Text = "View Supplier"
End With
End Sub

I was attempting With Sheets("Data").Buttons.name("PO_Filterinplace") which didn't work