Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge > 1 Then Exit Sub
If .Column <> 5 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
Dim vx@, frc As Byte: Application.EnableEvents = 0
.NumberFormat = "#,##0.00": .HorizontalAlignment = 4: .IndentLevel = 1
vx = Abs(.Value): frc = Int((vx - Int(vx)) * 100)
.Value = (Val(Left$(Int(vx) & "00000", 6)) + frc / 100) * Sgn(.Value)
Application.EnableEvents = -1
End With
End Sub