dim chartNew as Chart

  set chartNew=ActiveWorkBook.Charts.Add

  chartNew.ChartTitle.Characters.Text = "This is a New Chart"

Sub graphtest()
Dim chartNew As Chart
Dim chartsTemp As ChartObjects

  On Error GoTo errorHandler 'put in error handling to handle if no charts exist
  
  '
  'Deletes the last created chart in the worksheet
  '
  Set chartsTemp = ActiveSheet.ChartObjects
  If chartsTemp.Count > 0 Then
    chartsTemp(chartsTemp.Count).Delete
  End If
  Do
    rowpointer = rowpointer + 1
    locate = Cells(rowpointer, 1).Value
  Loop Until locate = 0
  c = rowpointer - 1
  Set myrange = Worksheets("Sheet1").Range(Cells(1, 1), Cells(c, 2))
  Set chartNew = ActiveWorkbook.Charts.Add
  chartNew.ChartType = xlXYScatterSmooth
  chartNew.SetSourceData Source:=myrange, PlotBy:=xlColumns
  chartNew.Location Where:=xlLocationAsObject, Name:="Sheet1"
  '
  'FOr some reason VBA loses the handle on the chart when you change the location so to workaround this
  'just re-reference it here
  '
  Set chartNew = Application.ActiveChart
  With Application.ActiveChart
    .HasTitle = True
    '
    'Sorry I got the chart title stuff wrong :-(
    '
    .ChartTitle.Text = "This is a New Chart"
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Shrinkage %"
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "M/C %"
  End With
  
  Exit Sub
errorHandler:
  If Err.Number = 91 Then 'handles the case when there is no chart
    Err.Clear
    Resume Next
  Else
    MsgBox "Unhandled Error" & vbCrLf & Err.Number & " " & Err.Description
  End If
End Sub