Comment corriger un nombre à 2 décimales dans VBA

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