Rounding Inconsistently- VBA

[milwphil]

Has anyone had a similar issue with Excel not rounding consistently?

I noticed in a spreadsheet that I use that the rounding is not occurring consistently.

This issue came to my attention when I built in a warning message to advise the user that the number was rounded.

Any insight anyone can provide would be greatly appreciated, here is the code I'm using:

[FONT=Calibri][SIZE=2][COLOR=Black]If Val(dataArray(tmpRow, tmpCol)) <> Val(Round(Val(dataArray(<wbr>tmpRow, tmpCol)), 0)) Then
                     cellWarning = True
                      Call updateWarnText(tmpRow, tmpCol, "Total @ location was  changed from " & dataArray(tmpRow, tmpCol) & " to " &  Round(Val(dataArray(tmpRow, tmpCol)), 0))
                     dataSheet.Cells(tmpRow, tmpCol).Value = Val(Round(Val(dataArray(<wbr>tmpRow, tmpCol)), 0))
                 End If
[/COLOR][/SIZE][/FONT]

 

[VoG]

I believe that VBA Round uses banker's rounding. Perhaps try

WorksheetFunction.Round

 

[milwphil]

VoG,

You are an Excel God! You nailed it!

THANK YOU, THANK YOU, THANK YOU!

THIS IS AWESOME!

I might actually get to see the sunlight today because of you.

Thank you!
Phil