Yes, as I said, this is a preliminary kind of chart cleansing function. There are a lot of places to test for chart features or offer user options to make the function more powerful and flexible.

Since not every chart needs a legend, I imagine your final example will include more error trapping, such as a block or two that I needed to add, beginning:

If cht.HasLegend Then . . .

In a couple more installments, I’ll have the whole code ready, which will show how this is used.

But it’s really easy enough. You pass a reference to the chart you want cleaned up to the function, and it returns a reference to the now cleaned up chart.

You call it like this:

'' MyChart is an existing chart
Set MyChart = CleanUpChart(MyChart)

You could take it a step further. Say you want a routine to clean up the active chart. If you call this CleanUpChart function, it will produce charts formatted just like any other routine that calls CleanUpChart.

Sub CleanUpActiveChart()
  If Not ActiveChart Is Nothing Then
    '' call like a function if you don't need the returned chart reference
    CleanUpChart ActiveChart
  End If
End Sub

Any chance you could extrapolate (with an example?) on how the function is called, as I am having trouble with this…