title: I created a macro but it did not follow my actions completely, is something wrong?
body: <p>I tried creating a stacked chart with macro, however, it did not delete completely what I wanted. I only want the name of each column to be there and everything else gone and to be placed at <code>cell b13</code>. May I know what is wrong with the code?</p>
  
  <p><a href="https://i.stack.imgur.com/D0Zm4.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/D0Zm4.png" alt="it shows this"></a></p>
  
  <pre><code>Sub utilisation()
  
      Dim chtChart As Chart
  
      Set chtChart = Charts.Add
      Set chtChart = chtChart.Location(Where:=xlLocationAsObject, Name:="Sheet1")
  
      With chtChart
  
          .ChartType = xlColumnStacked
  
          .SetSourceData Source:=Sheets("Sheet1").Range("a22:i23"), _
              PlotBy:=xlRows
  
          With chtChart
  
              .HasTitle = False
              .ChartTitle.Delete
              .Axes(xlCategory).Delete
              .Axes(xlValue).Delete
              .HasLegend = False
              .Axes(xlValue).MajorGridlines.Delete
              .Axes(xlValue).MinorGridlines.Delete
              .ChartArea.Border.LineStyle = xlNone
              .ChartArea.Format.Fill.Visible = msoFalse
              .PlotArea.Format.Fill.Visible = msoFalse
  
          End With
  
      End With
  
  End Sub
  </code></pre>