Substituir então esta linha…
Se InStr (1, pilha. Valor, “chamado em”, vbTextCompare) > 0 então pilhas. Valor = ""
com isto…
Se InStr (1, pilha. Valor, “chamado em”, vbTextCompare) > 0 então pilhas. O valor = substitui (pilha. Valor, “chamado em”, "")
Saurabh….