VBA- X axis below axis (with negative values)

Hello,

I'm running across a problem with adjusting my Line Chart's X Axis. The line Chart has positive and negative values, so the X axis is in the middle of the chart, by default. I want my macro to move the X-axis beneath the data/chart, but I'm having frustrating issues. This code selects the line chart, goes to the X-axis categories, then tries to change the X axis to xlLow...but the debugger catches on the last line every time. Is there a workaround that anyone knows of? I see a lot of people online have this issue as well, but I couldn't find any good solutions. Even if I can't move it below, moving it above the data would work too...just anywhere but the middle.

ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlCategory).Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    Selection.TickLabelPosition = xlLow

If I had to guess, I think the activate mid-stream is causing the issue:

ActiveSheet.ChartObjects("Chart 1").Select
ActiveChart.Axes(xlCategory).Select
Selection.TickLabelPosition = xlLow

or simply:

ActiveSheet.ChartObjects("Chart 1").Axes(xlCategory).TickLabelPosition = xlLow

Flawless victory. The first code you posted worked best. Thanks!