Bom dia

o meu sistema gera um relatório tipo extrato bancário onde os números negativos vem acompanhados por um D e os positivos por um C Criei a seguinte macro para formatar esses valores para número.

Mas a mesma está invertendo o separador de decimal pelo separador de milhar ou seja ela coloca a virgula onde fica o ponto.

Exemplo se o número for 1.000,00D  fica -1,00

se tirar o ponto ex 1000,00D fica -100000,00

já mexi na configuração do Excel e não adiantou.

Sub Ajustar_Valores()
    
    Dim r As range
 
    
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
      
    Application.Volatile
    For Each r In Selection
    
    
        If Right(r.Text, 1) = "D" Then
        
      r.Value = Val(Left(r.Text, Len(r.Text) - 1)) * -1
        
        Else
        
     r.Value = Val(Left(r.Text, Len(r.Text) - 1))
     
        End If
        
    
    Next r
        
        
End Sub