Add Method (Charts Collection) Example
This example creates an empty chart sheet and inserts it before the last worksheet.
ActiveWorkbook.Charts.Add Before:=Worksheets(Worksheets.Count)