Excel - posso definir uma célula para igualar a um determinado valor, independentemente do tipo digitado?

Isso é uma brincadeira com alguém ... não tenho certeza se é possível fazer o que eu quero. Estamos circulando um arquivo do Excel entre amigos para selecionar jogadores para um torneio de golfe. Eu gostaria de definir uma célula (chamada A1) para mostrar um determinado nome (Joe), não importa o que alguém digite nele.

A1 deve ficar em branco até que alguém tente digitar um nome nele. Quando alguém digita um nome - qualquer nome - ele muda automaticamente para Joe depois que eles pressionam enter.

A formatação condicional não funciona, pois parece que apenas aborda a aparência do valor na célula A1.

Uma fórmula não funciona porque eles veriam algo na célula.

A correção automática - embora tenha o efeito exato que estou procurando - não funciona porque está armazenada no meu computador e não é transferida com o arquivo.

Alguma ideia?

Como alternativa sem macro, isso não altera o valor da célula, mas altera a exibição da célula. Clique com o botão direito do mouse na célula em questão e clique em "Formatar Células". Na guia número, clique em Personalizado e digite o seguinte formato de número personalizado

"Joe";"Joe";"Joe";"Joe"

Explicação: Os formatos de número do Excel possuem quatro partes, separadas por ponto e vírgula. O valor da célula determina qual parte do formato numérico é usada e o formato se parece com isso:

[positive];[negative];[zero];[text] 

Como cada seção é uma sequência codificada, "Joe" será exibido independentemente do que for inserido, mesmo que seja inserida uma fórmula (a menos que essa fórmula retorne um erro). Geralmente, os formatos numéricos são usados ​​para exibir números negativos em vermelho ou alinhar valores no decimal ou em outros itens cosméticos. Mas eles também podem ser usados ​​para mexer com seus amigos.

Coloque a seguinte macro de eventos na área de código da planilha:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
   Application.EnableEvents = False
      Range("A1").Value = "Joe"
   Application.EnableEvents = True
End Sub