Cómo corregir un número a 2 decimales en VBA

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