How to replace a particular element in a cell

[arrun]

Hi,

I have this type of column :

167'1160'1147'3136'0-84 93'0 80'0 62'0 52'0

Here I want to replace " ' " with " . " if it is there. Please note that all element of that column do not contain " ' ". Is there any simple procedure to do that?

[Benzadeus]

[VBA]Sub ReplaceChar()
ActiveCell = Replace(ActiveCell, "'", ".")
End Sub[/VBA]

[Benzadeus]

If you want in entire column:
[VBA]Sub ReplaceCharCol()

Dim rng As Range, cl As Range
Set rng = Range(Cells(1, ActiveCell.Column), Cells(Cells(65536, ActiveCell.Column).End(xlUp).Row, ActiveCell.Column))

For Each cl In rng
cl.Value = Replace(cl.Value, "'", ".")
Next cl
End Sub[/VBA]

[Bob Phillips]

Just use the Excel Replace option, Ctrl-H