Как исправить число до 2 десятичных знаков в VBA

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