Find/Replace

Cancella carattere di Didak

Ciao a tutti,

voglio cancellare un carattere dopo averlo cercato in una stringa intutte le celle col metodo find.

Col seguente codice(vedi in fondo) riesco ad individuare la cella che contine tale carattere, ma non so come cancellare solo il carattere stesso e non tutto il contenuto della cella.

Spero di essere stato chiaro, saluti di nuovo a tutti e mille grazie in anticipo

Ecco il mio codice:

With ActiveSheet.Cells
Set c = .Find("$", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = ""
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

di Mauro

Basta che sostituisci il metodo .find con il metodo .replace....
esempio:
NomeCarI = InputBox("Trova: ", "Trova")
NomeCarF = InputBox("Sostituisci con:", "Sostituisci")
Cells.Replace What:=NomeCarI, Replacement:=NomeCarF