VBA: Change dot with comma and comman with dot in Excel?

Merged with Replacing commas with dots in Excel script.

Probably is very simple, But I'm in a hurry.

Public Sub St开发者_运维百科ergeSTorOR()
Dim oRow As Range
Dim cell As Range
Dim i As Long, j As Long

    Application.ScreenUpdating = False

    For i = Selection(Selection.Count).Row To Selection.Cells(1, 1).Row Step -1

        For j = Selection(Selection.Count).Column To Selection.Cells(1, 1).Column Step -1

**How cand I loop over the value of the cell and change the , with . and vice-versa in the same time

        Next j

    Next i

    Application.ScreenUpdating = True

End Sub