Help with setting chart axes and ranges

Hi,

I am trying to set the chart axes values for the chart in my sheet. I am using the below but get a run time error 'Object doesn't support this property or method' on the line highlighted below:

Sub InputScaleAxes()
With ActiveSheet.Charts("Chart1").Axes(xlCategory, xlPrimary)
.MinimumScale = ActiveSheet.Range("O40").Value
.MaximumScale = ActiveSheet.Range("039").Value
.MajorUnit = ActiveSheet.Range("O38").Value
End With
With ActiveSheet.Charts("Chart1").Axes(xlValue, xlPrimary)
.MinimumScale = ActiveSheet.Range("P40").Value
.MaximumScale = ActiveSheet.Range("P39").Value
.MajorUnit = ActiveSheet.Range("P38").Value
End With
End Sub

Can anyone assist me with this problem?

I tried the following:

With MyChtObj.Chart.Axes(xlValue, xlPrimary)
        .MinimumScale = "0"
        .MaximumScale = ws.Range("D5").Value
    End With
    

    With MyChtObj.Chart.Axes(xlCategory, xlPrimary)
         .MinimumScale = "0"
         .MaximumScale = ws.Range("D7").Value
    End With

The first part works, i.e. the values are set on the Y axis, but errors out on the highlighted line above?

this is my chart in the attached (with code).

thanks Andy! Changing the horizontal axis to date type has done the trick

I'm afraid this still does not work and I get an error 'Method MinimumScale of object Axis failed' on the highlighted line below?

Sub graph()

'set up graph
Dim MyChtObj As ChartObject
Set MyChtObj = ActiveSheet.ChartObjects("Chart 1")



    With MyChtObj.Chart
    .Axes(xlValue, xlPrimary).MinimumScale = "0"
    .Axes(xlValue, xlPrimary).MaximumScale = ActiveSheet.Range("L2").Value
    End With
    
    With MyChtObj.Chart
    .Axes(xlCategory, xlPrimary).MinimumScale = "0"
    .Axes(xlCategory, xlPrimary).MaximumScale = ActiveSheet.Range("I32").Value
    End With
End Sub

the intention is to set the min and max scale for each axis of the graph.