Excel VBA Makro ile nokta virgül değişimi

Sub Kod()

    Application.ScreenUpdating = False

   

    Columns("A:D").Select

    Selection.NumberFormat = "#,##0.00"

    Selection.Replace What:=".", Replacement:=";"

    Selection.Replace What:=";", Replacement:="."

    Selection.Replace What:=",", Replacement:=""

   

    Application.ScreenUpdating = True

    MsgBox " B i t t i "
End sub