Formula to permanently remove decimals

[howard]

I would like a formula to permanently remove a value where the decimals are more than 2 decimal places for eg if value appears as 2501.256999 in the formula bar, the numbers after the first two decimal places must be removed-in this example 6999 after .25 must be removed.

The the cell has been formatted to 2 decimal places. the cell itself shows only 2 decimal places, but the formulabar shows more than 2 decinal places

Your assistance in this regard will be most appreciated

 

[VoG]

Try this

Sub DecP2()
Dim c As Range
For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers)
    c.Value = c.Text
Next c
End Sub

 

[howard]

Hi Peter

Thanks for the help, much appreciated

 

[Just Jan]

=TRUNC(A1,2) will delete said unwanted decimals

 

[howard]

Thanks for the help, much appreciated