Sub InsertChartsBeforeWorksheets2() Dim myWorksheet As Worksheet For Each myWorksheet In Worksheets Charts.Add Before:=myWorksheet Next myWorksheet End Sub