Excel VisualBasic Script

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