How to automatically control the x and y axis of an xy scatter chart

[JJP2]

I have a single xy scatter chart in which I want to control the max, min, and unit of the x and y axis. I am new to VBA and so far have gotten the y axis (price), but not the x axis (date) to work, when added later. I appreciate your help.

Sub ChangeChartScales()
Dim objCht As ChartObject
For Each objCht In ActiveSheet.ChartObjects
With objCht.Chart
With .Axes(xlValue)
.MinimumScale = ActiveSheet.Range("DC_yMin").Value
.MaximumScale = ActiveSheet.Range("DC_yMax").Value
.MajorUnit = ActiveSheet.Range("DC_yUnit").Value
End With
With .Axes(xlCategory)
.MinimumScale = ActiveSheet.Range("DC_xMin").Value
.MaximumScale = ActiveSheet.Range("DC_xMax").Value
.MajorUnit = ActiveSheet.Range("DC_xUnit").Value
End With
End With
Next objCht
End Sub

[Andy Pope]

It would help if you posted example workbook to illustrate your problem.
The code looks like it should work.

[JJP2]

I created a simple example spreadsheet; however, it worked in that case, so I didn't post it. In my actual file I am using named ranges for the data for both axis so that it is dynamic, could that create any problems when dealing with dates as a data element for the x axis?

Here is my named range for the X axis:

Cash_calendar: =OFFSET(Cash!$B$14,0,0,COUNTA(Cash!$B$14:$B$44))

to create the DC_xMax I am taking =Max(Cash_calendar)+1

[Andy Pope]

Really can't help without an example with failing data but otherwise if I create an example, like you discovered, it will no doubt work.