VBA/Excel/Access/Word/Excel/Cell Number Format

Change the selected cell format

 
Sub FormatCell()
    Dim myVar As Range
    Set myVar = Selection
    With myVar
        .NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        .Columns.AutoFit
    End With
End Sub