Hvordan fikses ActiveWorkbook.SaveAs så komma ikke bliver til .

Jeg bruger en eksport at faner til .txt-filer. Denne eksport kører som en makro, der løber alle faner igennem og gemmer hver af dem som text-filer med tabulatorsep. indhold.
Mit problem er:
Når feltet indeholder tal med kommaer, bliver de omdannet til punktum. Jeg kan ikke bare lave en generel søgt og erstat da jeg risikerer at ændre kommaer som ikke skal ændres...

Koden jeg bruger til export:
Dim ws As Worksheet
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each ws In ThisWorkbook.Worksheets
       
       
            Sheets(ws.Name).Select
            Sheets(ws.Name).Copy

            ActiveWorkbook.SaveAs Filename:=fname & "\" & ws.Name & ".txt", FileFormat:=xlNormal, CreateBackup:=False
            ActiveWorkbook.Close
            ThisWorkbook.Activate
    Next
   
    Shell "explorer.exe " & fname, vbMaximizedFocus

Hvis jeg ikke kører det som makro, men blot gemmer manuelt giver det ikke problemer, så jeg tror at fejlen opstår i den møde excel arbejder med FileFormat:=xlNormal. Er der nogen der kender til problemet og ved hvordan det løses?