Excel VBA, ¿cómo escribir código si quiero reemplazar contenido?

Las siguientes condiciones de ejecución del código: seleccione el rango de celdas que deben reemplazarse;

Subreemplazo ()

Subreemplazo ()

Dim rng como rango, newtxt como cadena, oldtxt como cadena, t como cadena

Continúe con el siguiente paso en caso de error

Oldtxt = aplicación. InputBox("Ingrese el carácter a reemplazar:", "1")

Newtxt = aplicación. InputBox("Ingrese el carácter a reemplazar:", "1")

Para cada rng en la selección

t = Reemplazar(rng.Value, oldtxt, newtxt)

p>

rng. valor = t

entonces

conector final