Inserts a chart before each sheet 2
Sub InsertChartsBeforeWorksheets2() Dim myWorksheet As Worksheet For Each myWorksheet In Worksheets Charts.Add Before:=myWorksheet Next myWorksheet End Sub