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