Fiz um placeholder, pois tem como troca esse trecho do código com uma imagem de uma lupa para uma imagem de um X de limpar ?

Com texto altera de Busca para Limpa e estou pensando em fazer alteração do mesmo modo com uma imagem de lupa para imagem X

ActiveSheet.Shapes("BtBusca").Select
Selection.Characters.Text = "Limpa"


ActiveSheet.Shapes("BtBusca").Select
Selection.Characters.Text = "Busca"

Olhando o código vai entender sobre os códigos acima

OBS: digita qualquer coisa na busca