Copy sheet without creating new instances of named ranges?
<p>I'm using the following code to copy a sheet.  I also have a few named ranges that are scoped to the Workbook.  The problem is, when I do the copy, it creates duplicates of all the named ranges with a scope of the new sheet.  Everything works of course but I could potentially have 20+ sheets.  I don't need 80 named ranges that are mostly duplicates.  How can I avoid this?</p>

<pre><code>Sub btnCopyTemplate()
    Dim template As Worksheet
    Dim newSheet As Worksheet
    Set template = ActiveWorkbook.Sheets("Template")
    template.Copy After:=Sheets(Sheets.Count)
    Set newSheet = ActiveSheet
    newSheet.Name = "NewCopy"
End Sub
</code></pre>

<p>And the Name Manager after a copy:</p>

<p><a href="https://i.stack.imgur.com/xe3bY.png" rel="noreferrer"><img src="https://i.stack.imgur.com/xe3bY.png" alt="enter image description here"></a></p>