Excel VisualBasic Script

Sub chart()
    Dim myChartSheet As Chart
    Set myChartSheet = ActiveWorkbook.Sheets.Add _
        (After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count), _
        Type:=xlChart)
End Sub