Find Replace in Excel Charts

[agmorgan]

I want to be able to find and replace in the axis titles of charts.

I made a chart with the x axis title "Freq (GHz)"
I then copied and pasted the chart many times and just modified the source data.
Now I realise I need the x axis title to say "Frequency (GHz)"

Anyone want to help me out with a macro to find and replace freq with frequency?

I think its going to be something like this

'Loop through sheets
'Is it a chart?
'If so what is the axis title
'Replace it?
   ActiveChart.Axes(xlValue).AxisTitle.Select
    Selection.Characters.Text = "Frequency (GHz)"

I'm quite tired today and am having difficulty working it through.
2 cans of Red Bull and I'm still drooping!
Any help much appreciated.

[agmorgan]

After a nice curry for lunch and a bit of help from Jon Peltier (Excel MVP) I have come up with this

Dim Cht As Chart
   Dim strFind As String
   Dim strReplace As String
   
   strFind = "Freq (GHz)"
   strReplace = "Frequency (GHz)"
 
 
'Loop through charts
   For Each Cht In ActiveWorkbook.charts
     Cht.Axes(xlCategory).AxisTitle.Characters.Text = _
       WorksheetFunction.Substitute(Cht.Axes(xlCategory).AxisTitle.Characters.Text, strFind, strReplace)
   Next

Unfortunately in its current state it doesnt check for whole words
ie if you changed "Freq" to "Frequency" and a chart already had
the word "Frequency" you would end up with FreqFrequency

It would probably look better in a form as well
And some highlighting and a "Do you want to replace this?" option
But I can't be arsed at the moment

If you are enthusiastic I would appreciate you doing it and posting it back here