Excel: ¿puedo configurar una celda para que sea igual a un cierto valor, sin importar lo que esté escrito?

Esto es para bromear con alguien ... no estoy seguro si es posible hacer lo que quiero. Estamos circulando un archivo Excel entre amigos para seleccionar jugadores para un torneo de golf. Me gustaría establecer una celda (llámela A1) para que muestre cierto nombre (llámela Joe) sin importar lo que alguien escriba.

A1 debe estar en blanco hasta que alguien intente escribir un nombre en él. Cuando alguien escribe un nombre, cualquier nombre, cambia automáticamente a Joe después de presionar enter.

El formato condicional no funciona, ya que parece que solo aborda la apariencia del valor en la celda A1.

Una fórmula no funciona porque verían algo en la celda.

La corrección automática, aunque tendría el efecto exacto que estoy buscando, no funciona b / c que está almacenado en mi computadora y no se transfiere con el archivo.

¿Algunas ideas?

Como alternativa sin macro, esto no cambiará el valor de la celda, pero cambiará la visualización de la celda. Haga clic derecho en la celda en cuestión, luego haga clic en "Formatear celdas". En la pestaña de números, haga clic en Personalizar, luego ingrese el siguiente formato de número personalizado

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

Explicación: Los formatos de números de Excel tienen cuatro partes, separadas por punto y coma. El valor de la celda determina qué parte del formato de número se usa, y el formato se ve así:

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

Como cada sección es una cadena codificada, "Joe" se mostrará sin importar lo que se ingrese, incluso si se ingresa una fórmula (a menos que esa fórmula devuelva un error). Por lo general, los formatos de números se usan para mostrar números negativos en rojo, o para alinear valores en decimales u otros elementos cosméticos. Pero también se pueden usar para meterse con tus amigos.

Coloque la siguiente macro de evento en el área de código de la hoja de trabajo:

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