title: Create worksheets based on a master worksheet and then rename each tab
body: <p>I want to create worksheets from a list of "projects" from a master worksheet. When a worksheet is created I want it to be renamed as the project number from the list.</p>
  
  <p>I found two macros that do the job but I need them to work together.</p>
  
  <p>This one creates tabs and renames them.</p>
  
  <pre><code>Sub CreateSheetsFromAList()
      Dim MyCell As Range, MyRange As Range
  
      Set MyRange = Sheets("Invoice Summary").Range("B11")
      Set MyRange = Range(MyRange, MyRange.End(xlDown))
  
      For Each MyCell In MyRange
          Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet
          Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet
      Next MyCell
  End Sub
  </code></pre>
  
  <p>This one copies master tab and creates another worksheet.</p>
  
  <pre><code>Sub Test()
    Dim ws1 As Worksheet
    Set ws1 = ThisWorkbook.Worksheets("Master")
    ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
  End Sub
  </code></pre>