>Cetin,
>
>Thanks agains for your response. I added the 2 lines,
>
> .ApplyDataLabels()
> .SeriesCollection(1).Datalabels.Font.Size = 9
>
>in the indicated place changing only the Font.Size to 6 (also tried 4) but with no results. There are no errors but the font size remains unchanged.
>
>Any other thoughts?
>
>Stan

Later in the code you're playing with chart format. Try applying there.
Cetin