Label Chart Title & Axes

Using Excel 2007.

I tried the below but doesn't work. Thank you

Sub Title()

With ActiveChart.HasTitle = True
.ChartTitle.Text = "Total Productivity"
End With

With ActiveChart.Axes(xlCategory, 1)
.HasTitle = True
.AxisTitle.Text = "Productivity Levels"
End With

With ActiveChart.Axes(x1Category, 2)
.HasTitle = True
.AxisTitle.Text = "Change in employment share, percentage points"
End With

End Sub