title: Copy and Paste Macro for worksheets that will change name
body: <p>I'm trying to write a simple macro to copy/paste data from multiple tabs into a summary tab. My issue is that for every project the sample tabs will change names. Once I change the name of the sample tab my macro no longer works. </p>
  
  <p>Is there a way to link to Sheet 1, Sheet 2, Sheet 3... etc without changing the macro every time? Here is some of my code, and I've the parts called Sample, or Sample (2) are what needs to change every project.</p>
  
  <p>Thanks in advance!</p>
  
  <pre><code>Sheets("Sample").Select
      Range("B15:B29").Select
      Selection.Copy
      Sheets("Data Summary").Select
      Range("B15").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
      Sheets("Sample (2)").Select
      Range("B15:B29").Select
      Application.CutCopyMode = False
      Selection.Copy
      Application.CutCopyMode = False
      Selection.Copy
      Sheets("Data Summary").Select
      Range("C15").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
  </code></pre>