Start with the sample statement from the help file: 
'Help file statement:
Charts("Chart1").Axes(xlCategory).Crosses = xlMaximum
'change to something like
activechart.axes(xlcategory).crosses=xlmaximum
Naturally, using activechart means this statement will need to occur after the chart has been created and selected, which your current code is already doing.