Função TIRAR no VBA