Sub Format()
Worksheets("BAL 31.10.08").Columns("C"). _
NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Worksheets("BAL 31.10.08").Columns("D"). _
NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Worksheets("BAL 31.10.08").Columns("E"). _
NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Worksheets("BAL 31.10.08").Columns("F"). _
NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
End Sub