Dim arr, i As Long, t As String

Sub iMinus()
Dim cell As Range
Dim n As Integer
Dim flag As Boolean
Dim temp As String
  For Each cell In Range("A1").CurrentRegion
    If InStr(1, cell, "-") = Len(cell) Then
      cell = Trim(Replace(cell, ".", ","))
       flag = False
       For n = Len(cell) To 1 Step -1
         If flag Then
           If Mid(cell, n, 1) = "," Then
             temp = cell
               Mid(temp, n, 1) = " "
             cell = temp
           End If
         Else
           If Mid(cell, n, 1) = "," Then
             flag = True
           End If
         End If
       Next
      cell = Mid(cell, 1, Len(cell) - 1) * (-1)
    End If
  Next
End Sub

cell = Mid(cell, 1, Len(cell) - 1) * (-1)

Sub RestoreNumbers()
    Dim ar, sValue$, sVal#
    Dim i&, j&
    ar = [a1].CurrentRegion.Value
    On Error Resume Next
    For i = 1 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            If Err Then Err.Clear
            sValue = Replace(Replace(ar(i, j), Chr(32), ""), Chr(160), "")
            If Len(sValue) Then
                ar(i, j) = CDbl(ar(i, j))
                If Err Then
                    Err.Clear
                    sVal = Val(Replace(sValue, ",", ""))
                    If sVal <> 0 Then
                        ar(i, j) = IIf(Len(sVal) = Len(sValue), sVal, -sVal)
                    End If
                End If
            End If
        Next
    Next
    [a1].Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub