Excel VisualBasic Script

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