Rotate data labels to be vertical

I am trying to figure out a way to rotate data labels to be vertical via VBA. I know how to do it manually, but since this chart is generated from a button I want it to be done within the VBA.

I have attached an example. I need the correct code to make Sheet1, look like Sheet1 (2).

Note that the red data labels are not axis', the x axis has been removed from this chart.

Thanks for any help

That worked great!