Use of ROUND() Giving Unexpected Results

I have a worksheet that allows the user to place input to cell D4.

I need to have this value rounded to 1-decimal, so I have the following code on the Worksheet_Change event:

Formula:

Select Case Target.Column

    Case 4

        Select Case Target.Row

            Case 4

                If Target.Value > 0 Then

                    Application.EnableEvents = False

                    Target.Value = Round(Target.Value, 1)

                    Application.EnableEvents = True

                End If

        End Select

End Select

When I type 345.45, I would expect the cell value to change to 345.5, BUT it changes to 345.4
When I type 345.55, I would expect the cell value to change to 345.6, it DOES change to 345.6

If I use:

Formula:

Select Case Target.Column

    Case 4

        Select Case Target.Row

            Case 4

                If Target.Value > 0 Then

                    Application.EnableEvents = False

                    Target.Value = Application.WorksheetFunction.Round(Target.Value, 1)

                    Application.EnableEvents = True

                End If

        End Select

End Select

When I type 345.45, I would expect the cell value to change to 345.5, it DOES change to 345.5
When I type 345.55, I would expect the cell value to change to 345.6, it DOES change to 345.6


Why doesn't the first Round() function work as expected?

The VBA version of round uses the "round-to-even" logic; so in this case when the last figure is a 5, it will round to the closest even number, which is what you got in the first example.

OMG, is that by design? That seems pretty faulty in doing that. I guess I'll use Application.WorksheetFunction.Round, but am still surprised about the need to do so.

Thanks for confirming my problem and allowing me to understand why it was occurring.

You're welcome, good luck

Found the following link for this issue.

https://support.microsoft.com/en-us/kb/194983

Apparently, when using the ROUND() function for VBA, it uses Banker's rounding.