$rng = your range;
$rng->{NumberFormat} = "#,##0.00_);[Red] (#,##0.00)"