Carmelo, o ideal seria anexar um modelo reduzido de acordo com as regras do forum para sabermos como estão estes dados.
Digo, pois fiz uma simulação com 3 abas nas quais digitei valores como citou mas com "ponto" 24.000 - 25.000 ...." e foi gerado 3 arquivos e os números com virgula.
"24,000"
"25,000"
"26,000"
"27,000"
"28,000"
"29,000"
"30,000"

Olá Mauro...segue o excel com valores de simulação, mas que segue o o padrão que tenho.

Os dados estão com vircula, mas quando utlizo a macro, ele transfarma a , em .
Ai complica os dados na importação.

Boa noite, CarmeloC

Da uma olhada nesse código se te ajuda:

Sub Separa()

Dim Novo As Workbook
Dim Aba As Worksheet
Dim Onde As String

    Application.ScreenUpdating = False
    
        For Each Aba In ThisWorkbook.Worksheets
            
            Aba.Copy
    
            Set Novo = Workbooks(Workbooks.Count)
    
            Onde = ThisWorkbook.Path
            If Right(Onde, 1) <> "/" Then
                Onde = Onde & ""
            End If
            
            Novo.SaveAs Onde & Aba.Name, xlText
            
            Rows("6:6").Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
            
            Novo.Close
            
        Next
    
    Application.ScreenUpdating = True
    
End Sub

Trindade, valeu pela ajuda!

Mas o txt ainda continua trazendo com "." o txt.

Pessoal, consegui resolver. Alterei no SAP a importação a representatividade decimal, e deu certo.

PRA FICAR PERFEITO: so precisaria de inserir na macro, um "Sim" para substituir arquivo, e um "ok" para salvar.
Como é um processo que terei que repetir varias vezes, deixaria mais facil também deixar autimativo isso.

Como ficaria nessa macro que temos?

Agradeço desde já o tempo e atenção na ajuda!!!

Bom dia, Carmel C.

Creio que deve estar falando das mensagem de aviso do Excel:

Depois do Application.ScreenUpdating = False

Application.DisplayAlerts = False

Antes do Application.ScreenUpdating = True

Application.DisplayAlerts = True

Application.DisplayAlerts = True

Valeu Trindade!!!!!!! Isso mesmo...

abs