If you have data that looks like:
12,34
and want to convert it into:
12.34

Then select the cells in question and run:

Sub commaconverter()
Set r = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConst ants)
Set rr = Intersect(Selection, r)
comma = ","
dot = "."
For Each cel In rr
cel.Value = Replace(cel.Value, comma, dot)
Next
End Sub

--
Gary''s Student - gsnu200792


"DianeG" wrote:

Hi

A client of mine works in the UK but deals with Austrian colleagues who use
a comma instead of decimal point in their calulations. When he receives the
spreadsheets he can't calculate in them. I was thinking around the lines of
using find and replace to swap the commas but I wondered if anybody else had
a more efficient way of doing it

Thanks in advance

Diane