Multi-Chart Dashboard

Sub CreateMultiChartDashboard()
    Dim ws As Worksheet
    Dim dashWs As Worksheet
    Dim chart1 As ChartObject, chart2 As ChartObject, chart3 As ChartObject

    Set ws = Sheets("Data") ' Assumes data is in a sheet named "Data"
    Set dashWs = Worksheets.Add
    dashWs.Name = "Dashboard_" & Format(Date, "mmyyyy")

    ' Chart 1: Column Chart
    Set chart1 = dashWs.ChartObjects.Add(50, 50, 300, 200)
    With chart1.Chart
        .SetSourceData ws.Range("A1:B10")
        .ChartType = xlColumnClustered
        .HasTitle = True

' ... 23 more lines hidden ...
'
' Sign up for free to view the complete code
' Visit: vbacode.io