Borislav, Tariq,
Thanks to Sergey, you can surpres 0s this way

.NumberFormat = "###,###,###"
* Or condtional formatting
.NumberFormat = "#[=0];###,###,###.00"

>>Dear Sir,
>>
>>Thank you very much for helping.
>>your all codes work fine
>>Here is another question
>>
>>How to apply following format in range(a1:d2)
>>
>>@Z 9,99,999.99
>>
>>Please help again
>
>

>loSheet.Range("A1:D2").Select
>loExcel.Selection.NumberFormat = "#,##0.00" && You can't hide zero values :o( (at least i don't know how)
>