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