Dashboard Creator

Sub CreateDashboard()
    Dim dashWs As Worksheet
    Dim chartObj As ChartObject
    Dim dataRange As Range

    ' Create dashboard worksheet
    Set dashWs = Worksheets.Add
    dashWs.Name = "Dashboard_" & Format(Date, "mmyyyy")

    ' Add title
    With dashWs.Range("A1:F1")
        .Merge
        .Value = "Executive Dashboard - " & Format(Date, "mmmm yyyy")
        .Font.Size = 16
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
    End With

    ' Create sample chart
    Set dataRange = Sheets("Data").Range("A1:B10")
    Set chartObj = dashWs.ChartObjects.Add(50, 50, 300, 200)

    With chartObj.Chart
        .SetSourceData dataRange
        .ChartType = xlColumnClustered
        .HasTitle = True
        .ChartTitle.Text = "Monthly Performance"
    End With

    MsgBox "Dashboard created successfully!"
End Sub