Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = Replace(Target.Value, ".", ",")
Target.NumberFormat = "#,##0.00"
Target.TextToColumns
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.NumberFormat = "@"
End Sub