Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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