Formater via makro

Hej X'perter!

Når jeg læser data ind fra et økonomisystem, som tekstfiler, bruger jeg en makro til at konvertere tekststrengene til brugbare talstørrelser.

Makroen sætter også format på kolonner, der indeholder tal, men det slår ikke igennem, eller ihvertfald ikke konsekvent.

Jeg ville gerne have, at kolonnerne blev formateret højrestillet, med punktum som tusindadskiller, komma som decimalseparator og med to decimaler.

Koden ser således ud:
'  Fjern mellemrum i talkolonner og erstat engelsk decimalpunktum med DK decimalkomma
    Columns("d:f").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
   
    Columns("d:f").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
   
'  Sæt et nummerformat på talkolonnerne
    Columns("d:f").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
        .NumberFormat = "#,##0.00"
    End With

Men i bedste fald bliver kun f-kolonnen korrekt formateret. Jeg kan ikke bruge formatpenslen til at kopiere det korrekte format over på de andre kolonner, men hvis jeg åbner en enkelt af de forkert formatterede celler og trykker Enter igen, bliver den korrekt!

Hvad gør jeg galt?