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