title: Work sheet's name is being renamed
body: <p>I used the below VBA code to copy 2 excel sheets within same workbook with other names that will be fetched from one sheet.</p>
  
  <p>I have two sheets: Input and Output. These sheets will be copied with the name that is present in the cell C15 of Input sheet.</p>
  
  <pre><code>Name = ThisWorkbook.Sheets("Input").Cells(15,3).Value
  ThisWorkbook.Activate
  Sheets("Input").Copy After:=Sheets(Sheets.Count)
  ActiveSheet.Name = Name &amp; " " &amp; "Input"
  Sheets("Output").Copy After:=Sheets(Sheets.Count)
  ActiveSheet.Name = Name &amp; " " &amp; "Output"
  </code></pre>
  
  <p>This code is working fine until copying the Input sheet. But it is also renaming the Output sheet which causes an error at the last but one line because the sheet name Output is replaced with cell value of C15. Can anyone help me with this...</p>