I am automising a 2d surface plot generation through VBA. I could able to plot axis title in x and z axes but not in z axes.

here is the piece of th code

With ActiveChart
.ChartType = xlSurface
.HasTitle = True
.ChartTitle.Text = Sheets("DATA_SHEET").Cells((nxt_count(nn) + 1), 1).Value
.Name = Sheets("DATA_SHEET").Cells((nxt_count(nn) + 1), 1).Value
'
' title for xaxis
'
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Zaxis"
'
' title for x=Z axis
'

.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Xaxis"
'
' title for y axis
'

.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Y-Axis"
End With

With the above codes it is plotting for x and z axis perfectly and it is not displaying anything in another axis