Sub Test()
Dim ws As Worksheet
Dim chtObj As ChartObject

For Each ws In ActiveWorkbook.Worksheets
For Each chtObj In ws.ChartObjects
chtObj.Chart.ChartArea.Font.Size = 10
Next
Next

End Sub

Regards,
Peter T
"Mahadevan Swamy" wrote in message
oups.com...
Hi,

I have four graphs in one worksheet and I have about 15 worksheets. It
is a tiresome process to go to each and every graph to change the font
size of x-axes, y-axes, bar values, x and y labels etc.... I tried
using a macro to do this but it is sticking to one worksheet which i
recorded the macro and doesn't change the others. Is there a way to
avoid this tiresome process? Thanks

Swamy