PC-HELP.CZ

Mám číslo kde je místo desetinné čárky tečka. Makrem (viz níže) vyměním tečky za čárky, ale stejně se z toho neudělá číslo. Ví někdo jak to vyřešit? (Pokud výměnu teček za čárky udělám přes CTRL H, tak to funguje). Soubor je přiložen.
Sub nahrada()
Dim cil, c As Range
Set cil = Sheets("Makro").Range(Range("D1"), Range("D65536").End(xlUp))
For Each c In cil
c = Replace(c, ".", ",")
Next
End Sub

Fce Replace sice zameni tecku za carku, ale text zustane textem, ten je nutno zkonvertovat na cislo, napr takto: c = CSng(Replace(c, ".", ","))

Děkuji