Kommata durch Punkte ersetzen

ich möchte via Makro sämtliche Kommata in der Tabelle2 durch Punkte ersetzen.
Der folgende Code ist an ein Formularbutton gebunden und funktioniert leider nicht:

Sub ersetzen()
Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _
:=xlByColumns, MatchCase:=True
end sub

Kann mir jemand weiter helfen?

viele Grüsse
Nicky