Digrammexport mit Fehlern

Private Sub CommandButton2_Click()
Dim wksTab As Worksheet
Dim chrDia As ChartObject
Dim strExport As String
Dim SavePath As String
SavePath = "c:\test\"
If Dir(SavePath, vbDirectory) = "" Then MkDir SavePath
For Each wksTab In Worksheets
With wksTab
If .ChartObjects.Count > 0 Then
For Each chrDia In .ChartObjects
If chrDia.Chart.Axes(xlValue, xlPrimary).HasTitle = True Then
strExport = chrDia.Chart.Axes(xlValue, xlPrimary).AxisTitle.Caption
Else
strExport = chrDia.Name
End If
chrDia.Chart.Export Filename:=SavePath & strExport & ".png", FilterName:="png"
MsgBox (strExport)
Application.Wait (Now + TimeValue("0:00:02"))
Next chrDia
End If
End With
Next wksTab
MsgBox "Fertig, Aktualisierung beendet!"
End Sub