reduce number to 1 vba code example

Example: how to correct a number to 2 decimal places in vba

Sub rounding() 
ActiveCell.Select Selection.Value = Format(ActiveCell, "#.00")
End Sub