Bingo! That worked. Nice of Microsoft to omit that
little piece of the puzzle! :)
Thanks Norman.
-----Original Message-----
Hi Andrew,
Try:
Sub Yester()
With Worksheets("Sheet1").ChartObjects("Chart
3").Chart.Axes(xlCategory)
.HasTitle = True
.AxisTitle.Caption = "1994"
End With
End Sub
---
Regards,
Norman
|