Cell Format to Dialog Box in Chart

[Bill]

Hello All,
I would like to find out what the format is for a cell (e.g., A1) and then
use that format to set the format of numbers I have on a chart in a dialog
box. I have used the following to find the format:

cf = Cells(1, 1).NumberFormat
dd = 1
Sheets("Chart1").Select
ActiveChart.Shapes("Text Box 1").Select
dd = Format(dd, cf)
Selection.Characters.Text = dd

If I use this in Excel 2000 and the format is "General", the value of dd
becomes "Gen0eral" in the text box. It works fine in Excel 2003. Any
suggestions on how to get around this in Excel 2000?

Thanks.

Bill

[Tom Ogilvy]

test if the value of cf is General? Then adjust accordingly.

--
Regards,
Tom Ogilvy


"Bill" wrote:

> Hello All,
> I would like to find out what the format is for a cell (e.g., A1) and then
> use that format to set the format of numbers I have on a chart in a dialog
> box. I have used the following to find the format:
>
> cf = Cells(1, 1).NumberFormat
> dd = 1
> Sheets("Chart1").Select
> ActiveChart.Shapes("Text Box 1").Select
> dd = Format(dd, cf)
> Selection.Characters.Text = dd
>
> If I use this in Excel 2000 and the format is "General", the value of dd
> becomes "Gen0eral" in the text box. It works fine in Excel 2003. Any
> suggestions on how to get around this in Excel 2000?
>
> Thanks.
>
> Bill
>
>
>