Olá, Geneci.
Na planilha você colocou C1:U1
6 mas me parece que você quis dizer C1:U1
9
opção1 - para rodar o código via botão ou outro meio, instale uma cópia do código abaixo em um módulo comum.
Código: Selecionar todosSub ApagaCritB1()
[C1:U19].Replace [B1], "", xlWhole
End Sub
#
opção2 - para rodar o código automaticamente após alterar manualmente o valor de B1, instale uma cópia do código abaixo no módulo da planilha.
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$B$1" Or Target.Value = "" Then Exit Sub
[C1:U19].Replace [B1], "", xlWhole
End Sub
Osvaldo
Quatro coisas que odeio: preguiçosos, políticos, Google planilhas e Outlook

Anexe arquivos diretamente no fórum:
+ Resposta / Adicionar um anexo / Selecione o arquivo
CÉLULAS MESCLADAS PODEM AFETAR FÓRMULAS E MACROS.