vba rounding

[Matt111]

Hi, tried searching on topic but didnt come across anything conclusive. I'm trying to get a 'normal' rounding function using vba by that i mean 2.466 = 2.47 or 2.562 = 2.56 etc (as opposed to something i've read about called Bankers rounding). So i have the following but in effect it returns 0dp, and tbh i dont think Roundup is what i'm looking for either...! can anyone help please? Matt.

' Convert numbers in selection to 2dp
Dim c As range
Dim i As Integer
For Each c In Selection.Cells
i = WorksheetFunction.RoundUp(c.Value, 2)
c.Value = i
Next

 

[VoG]

Try

Dim c As Range
Dim d As Double
For Each c In Selection.Cells
    d = WorksheetFunction.Round(c.Value, 2)
    c.Value = i
Next

 

[Matt111]

Hi thats great thank you very much, the last bit is c.value = d i assume of course. Many thanks.

 

[VoG]

Oops! Yes, of course