title: Create new Sheet for each cell in Range and rename using its value
body: <p>I couldn't find any topic in this forum or google which helps me so I hope anyone will be able to help me here.</p>
  
  <p>Here I go:</p>
  
  <p>I already created this macro:</p>
  
  <pre><code>Sheets("Presentation PP").Select
  Dim MyCell As Range, MyRange As Range
  
  Set MyRange = Sheets("Presentation PP").Range("C3")
  Set MyRange = Range(MyRange, MyRange.End(xlDown))
  
  For Each MyCell In MyRange
      Sheets("Presentation PP").Copy After:=Sheets(1) 'copies worksheet and creates a new one
      Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet
      Next MyCell
  End Sub
  </code></pre>
  
  <p>So now this macro is creating for every cell in my range a copy of my sheet and renames just the last one with the value in my last cell. I need all sheets renamed by the value. </p>
  
  <p>I guess I missed a sub routine. Hope someone knows how to fix that.</p>