Excel VisualBasic Script

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