Mega Code Archive
Inserts a new sheet after each sheet
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