Sub InsertChartsAfterWorksheets()
Dim myWorksheet As Worksheet
Dim myChart As Chart
For Each myWorksheet In Worksheets
Set myChart = Charts.add
myChart.Move After:=myWorksheet
Next myWorksheet
End Sub