Macro til at fixe bagved stillede minusser på udtræksfiler fra økonomisystem

Jeg har problemet at på de udtræk jeg laver får jeg bagved stillede minuser.

Til det har jeg læst mig til en makro, men jeg kan ikke få den til at fungere - er der et kvikt hoved der kan se hvad der er galt ?

Public Sub Converter_Minus_Aspect4()
    Dim cell As Range
   
    On Error Resume Next
    For Each cell In ActiveSheet.Cells.SpecialCells( _
            xlCellTypeConstants, xltextValue)
        With cell
            If IsNumeric(.Value) Then _
            .Value = CDbl(Value)
        End With
    Next cell
    On Error GoTo 0
             
End Sub

på forhånd tak