Could we see an example of your code that is not working?
Here is a short sub that works fine in Excel 2010:
Sub TestFormat()
Worksheets("Sheet1").Range("A1") = Format(Now(), "dd-mmm-yyyy hh:mm")
Worksheets("Sheet1").Range("A2") = Format(1234567.89, "$#,##0.00")
End Sub