Excel Macro Code to change x axis maximum scale of chart

Sub setXAxisMaximumScale()
 ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.Axes(xlCategory).MaximumScale = 1
End Sub


P.s. I first recorded a macro and viewed its code to get this