title: Copy Pasting Charts Excel VBA
body: <p>I am having a problem here with my VBA code.</p>
  
  <p>This is the first code I am writing in VBA.
  Basically I want it to check a condition (Value of cell F7 in sheet2), and based on that I would like to paste one of two charts in sheet2. </p>
  
  <pre><code>    Private Sub CommandButton1_Click()
  
  
  CommandButton1.Caption = "Stock Size Range"
  CommandButton1.BackColor = 0
  CommandButton1.ForeColor = 16777215
  
  'Clear the chart area
   Charts("Chart41").ChartArea.Clear
  
  
  If Sheets("sheet2").Range("F7") = 1 Then 'Aluminum Material
  
  
      Sheets("sheet3").ChartObjects("Chart666").Select
      Sheets("sheet3").ChartObjects("Chart666").Copy
      ChartObjects("Chart41").Paste
  
      Else
  
      Sheets("sheet4").ChartObjects("Chart888").Select
      Sheets("sheet4").ChartObjects("Chart888").Copy
      ChartObjects("Chart41").Paste
  
  End If
  
  End Sub
  </code></pre>
  
  <p>Thing is,, when I click on the command button, it gives me a Run-Time error "9": Subscript out of range and it points to the line ( Charts("Chart41").ChartArea.Clear)</p>
  
  <p>Thank you,</p>