Thanks Andy....
However I get a runtime error 438... Object doesn't support this property or
method.
I have some existing code that I was attempting to insert this into to clean
up the data results..... here's the snippet....
FYI.. the added portion was added after I ran it sans addition with same 438
error...
Selection.Position = xlBottom
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.NumberFormat = "mm/dd"
With Selection.TickLabels
.Alignment = xlCenter
.Offset = 100
.ReadingOrder = xlContext
.Orientation = xlUpward
End With
ActiveChart.Axes(xlCategory).Select 'just added 11-3-06
With Selection.TickLabels <---- I added this from your code posted earlier
.MajorTickMark = xlOutside
.MinorTickMark = xlNone
.TickLabelPosition = xlLow ' < this line does it
End With
ActiveChart.ChartTitle.Select
Selection.AutoScaleFont = True