Como sustituir asteriscos en Excel por otro valor, y el nombre de Dios

Hay un problema común, por ejemplo, en algunas bases de datos se les ocurre sustituir los valores confidenciales, pero cuando quiero en Excel sustituir * con otro valor, por ejemplo 9999 o A. En la imagen se muestra un ejemplo:

 Si yo -o tú, claro está- utilizas el buscador de Excel, y le dices sustituir "*" por otro valor, entenderá que lo que quieres hacer es sustituir cualquier valor (pues así se dice en idioma Excel cualquier cosa, "*") por A, y pondrá puras Aes, como se ve en la siguiente imagen:

Realmente "*" es como el nombre de Dios que no se puede pronunciar y su uso tiene efectos desconocidos. Bien. 

 Para ello está esta macro:


Sub SustituyeAsterisco()
   
    For N = 1 To 16
   
    ValorAObservar = ActiveCell.Value
   
     If ValorAObservar = "*" Then
      ActiveCell.Value = "A"
     End If
   
   
    ActiveCell.Offset(1, 0).Range("A1").Select
   
    Next
   
End Sub

Para integrarla simplemente se graba cualquier macro, se detiene, se va al menú de macros se dice modificar y ahi se pega, entonces quedará grabada. Cuando se haga eso el resultado será el siguiente:

En otra ocasión veremos como prescindir del valor límite en For Next, para que la macro actúe independientemente del número de registros.