title: Rename all worksheets to the values of each cell in Sheet1 ColA
body: <p>I'm surprised I haven’t been able to find the solution floating around online. There have been several similar questions asked but more complicated parts involved.
  This is really to prep the workbook. Sheet1 ColA has a list of section numbers. I need it rename the worksheets to each of the section numbers. They will need to stay in order and create more sheets if needed. Leaving exactly one sheet for every section number.</p>
  
  <p>This is some code that I found but don't fully understand. It seems close and I just need to modify it to use ColA instead of the column with the header "Last_Name".</p>
  
  <pre><code>Sub MakeSectionSheets()
  
  Dim rLNColumn As Range
  Dim rCell As Range
  Dim sh As Worksheet 
  Dim shDest As Worksheet 
  Dim rNext As Range 
  
      Const sNUMB As String = "Last_Name"
  
      Set sh = ThisWorkbook.Sheets("Sheet1")
      Set rLNColumn = sh.UsedRange.Find(sNUMB, , xlValues, xlWhole)
  
      'Make sure you found something 
      If Not rLNColumn Is Nothing Then
          'Go through each cell in the column 
          For Each rCell In Intersect(rLNColumn.EntireColumn, sh.UsedRange).Cells 
              'skip the header and empty cells 
              If Not IsEmpty(rCell.Value) And rCell.Address &lt;&gt; rLNColumn.Address Then
                  'see if a sheet already exists 
                  On Error Resume Next
                      Set shDest = sh.Parent.Sheets(rCell.Value)
                  On Error GoTo 0
  
                  'if it doesn't exist, make it
                  If shDest Is Nothing Then
                      Set shDest = sh.Parent.Worksheets.Add
                      shDest.Name = rCell.Value
                  End If
  
                  'Find the next available row
                  Set rNext = shDest.Cells(shDest.Rows.count, 1).End(xlUp).Offset(1, 0)
  
                  'Copy and paste
                  Intersect(rCell.EntireRow, sh.UsedRange).Copy rNext
  
                  'reset the destination sheet
                  Set shDest = Nothing
              End If
          Next rCell
      End If
  
  End Sub
  </code></pre>