Optaget makro virker ikke korrekt

Jeg har optaget denne makro, som skal opdatere data fra en anden fil, kolonne c-g skal ændre format til tal og dernæst erstattes alle '.' med ','. Det fungerer fint, når jeg gør det manuelt, men ikke når jeg kører makroen. Er der nogen der kan se, hvad der er galt?

Sub opdater_import()
'
'
'  ActiveWorkbook.RefreshAll
    Columns("C:G").Select
    Selection.NumberFormat = "0.00"
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("C1").Select
End Sub

Tville