Excel VBA: convert number format from European to US

Small coding to convert European number formats to US

Sub EuroToUS()

'Converts selected range from numbers presented in EU format to US format

    For Each Cell In Selection

        'remove all dots

        Cell.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:= _

        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

        'replace all commas with decimals

        Cell.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder:= _

        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

        'check for empty cells & skip

        If Len(Cell) <> 0 Then

              Cell.Value = trim(Cell) * 1 'remove empty spaces

        End If

    Next

End Sub