View Single Post
  #3   Report Post  
Andrew
 
Posts: n/a
Default

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