You're welcome.
If you're doing that in a loop, keep in mind it'd be slower. Instead you might get whole column/row/area references and do just one call. ie: To apply to only Column 2 ("B") in whole sheet used area:

oleapp.activeworkbook.activesheet.UsedRange.Columns(2).NumberFormat = ...

Cetin

>tested, tried and trusted:) thanks Cetin, that was perfect.
>~M
>
>>Mark,
>>OleApp.cells.NumberFormat
>>
>>OleApp.cells means all cells.
>>
>>Instead of:
>>>

>>>OleApp.cells(lnCounter,3).Select   && selects the individual cell
>>>OleApp.cells.NumberFormat = "[$€-2] #,##0.00"   && change the format of cell
>>>

>>Try:
>>

>> OleApp.cells(lnCounter,3).NumberFormat = "[$€-2] #,##0.00"   && change the format of cell
>>

Cetin
>>
SNIP...