VBA/Excel/Access/Word/Excel/Cell Number Format
Change the selected cell format
<source lang="vb">
Sub FormatCell()
Dim myVar As Range Set myVar = Selection With myVar .NumberFormat = "#,##0.00_);[Red](#,##0.00)" .Columns.AutoFit End With
End Sub
</source>