Dim rngCell As Range
With ActiveSheet
.UsedRange.NumberFormat = '@'
For Each rngCell In .UsedRange
rngCell.Value = CStr(Replace(rngCell.Value, '.', ','))
Next rngCell
End With