>I really don't understand the need to do it but If you want to achieve it >for display purpose. You can have A assigned as 1.00 and then make use of >Format functions. examples stated below:

>' User-defined numeric formats.
>msgbox formatnumber(a,3,0) 'Returns 1.000
>msgbox formatcurrency(a,3,0) 'Returns $1.000 depending upon regional >settings
My purpose is to fix cell format of Excel sheet with a initial value,
now i understand it is not a right way.But anyway,getting a workaround from
you,thanks alot.