Mega Code Archive
Insert two chart sheets after the last worksheet in the active workbook The chart sheets receive default names, such as Chart1 and C
Sub addAfter()
ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count), Count:=2, Type:=xlChart
End Sub