Help with Macro to Change Fonts

[ttbuson]

I have a macro that goes through each sheet and changes the worksheet font and the font on any graphs to be Arial. I have data labels on a couple of the graphs and some of them are bolded, italicized, or a different color. When I run the macro, it loses any formatting I had. Does anyone know how to deal with this issue? Thanks!

 

[Andrew Poulsom]

Better post your macro.

 

[ttbuson]

This is the macro I'm using.

Sub ChangeFontArial()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Dim WS As Worksheet
Dim CH As ChartObject
For Each WS In ThisWorkbook.Worksheets
    WS.Cells.Font.Name = "Arial"
    For Each CH In WS.ChartObjects
        With CH.Chart.ChartArea
            .Font.Name = "Arial"
        End With
    Next CH
Next WS
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

 

[Andrew Poulsom]

The ChartArea seems to include the DataLabels, although I don't think that it should. You will need to deal with the chart elements individually.