Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Insert chart sheets after each worksheet

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