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...