Macro para gráfico de dos ejes

Hola dav, me comentaron que tu si me podrías contestar la siguiente pregunta
Tengo un problema al grabar una macro de un gráfico de dos ejes, me lanza un error de método Axes de objeto chart, el error esta en negrita y es el siguiente:
Sub Grafico()
'
' Grafico Macro
' Macro grabada el 18/12/2008 por fsepulvedam
'
' Acceso directo: CTRL+a
'
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:= _
"Barras y lineas"
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range( _
"B4:B15,E4:E15,G4:G15"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Monto y HHEE promedio pagado por persona (según dotación)" & Chr(10) & "acumulado al mes de Agosto"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Monto en $"
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "Nº HHEE"
End With
End Sub
Espero me puedas ayudar, gracias