Jak skorygować liczbę do 2 miejsc po przecinku w VBA

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