title: How to copy and paste textboxes from one sheet to another by automatically opening a new sheet
body: <p>I would like to copy and paste a few textboxes from one sheet to a new one. The macro listed below works well in a new fresh workbook: </p>
  
  <pre><code>Sub Move_controls()
   Dim sh As Shape
   Dim T, L As Integer
   Sheets("MasterCopy").Select
       For Each sh In ActiveSheet.Shapes
       If sh.Type &lt;&gt; msoComment Then
           T = sh.Top
           L = sh.Left         
           For Each Sheet In ActiveWorkbook.Sheets
              If Sheet.Name &lt;&gt; "MasterCopy" Then
                   sh.Copy
                      Sheet.Select
                      ActiveSheet.PasteSpecial Link:=False,      
                  DisplayAsIcon:=False
                  sh.Select
                  Selection.Top = T
                  Selection.Left = L         
              End If
           Next
       End If
       Sheets("MasterCopy").Select
       Next
   End Sub
  </code></pre>
  
  <p>Unfortunately it doesn't work when I try to nest it to a macro that opens automatically a new sheet by copying a sheet called MasterCopy sheet in to a new one.</p>
  
  <p>Here you go the other macro that opens automatically a new sheet copying and pasting the MasterCopy sheet with all its features.</p>
  
  <pre><code>    Private Sub Workbook_NewSheet(ByVal sh As Object)
          Dim tmpName As String
          tmpName = sh.Name
          Sheets("MasterCopy").Copy Before:=Sheets(sh.Name)
               Application.DisplayAlerts = False
               Sheets(sh.Name).Delete
               Application.DisplayAlerts = True
          Sheets("MasterCopy (2)").Name = tmpName    
      End Sub
  </code></pre>
  
  <p>Have you got any suggestion on how to nest these two codes and copy and paste MasterCopy sheet with all its textboxes and features? </p>