Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Inserts a new sheet after each sheet
Sub InsertChartsAfterWorksheets()
   Dim myWorksheet As Worksheet
   Dim myChart As Chart
 
   For Each myWorksheet In Worksheets
      Set myChart = Charts.Add
      myChart.Move After:=myWorksheet
   Next myWorksheet
End Sub