Sub ExportAll_Click()

Dim excelWorkBook As Workbook
Dim targetSheet As Worksheet
Dim chartObjects As chartObjects
Dim existingChartObject As ChartObject

Set excelWorkBook = ThisWorkbook
Set targetSheet = excelWorkBook.Worksheets("Sheet5")
Set chartObjects = targetSheet.chartObjects()

Dim i As Integer

For i = 1 To 1092

ActiveSheet.PivotTables("PivotTable6").PivotFields("Service ID").ClearAllFilters
ActiveSheet.PivotTables("PivotTable6").PivotFields("Service ID").CurrentPage = i



Set existingChartObject = chartObjects.Item("DailyChart")existingChartObject.Activate
ActiveChart.Export "D:HC" & Application.Range("FilterServiceId") & "C.png"



Next i

End Sub