Dynamic Chart Creator

Sub CreateDynamicChart()
    Dim ws As Worksheet
    Dim chartWs As Worksheet
    Dim dataRange As Range
    Dim chartObj As ChartObject
    Dim lastRow As Long

    Set ws = ActiveSheet
    Set chartWs = Worksheets.Add
    chartWs.Name = "Charts_" & Format(Date, "mmyyyy")

    ' Define dynamic range
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Set dataRange = ws.Range("A1:B" & lastRow)

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