title: Rename selected sheets with names from a list
body: <p>I have to rename my selected sheets (tabs of sheets) continuously in order to keep them updated with new additions i.e. sorting them based on new names, numbers or other criteria. </p>
  
  <p>I have made a table of all the names in one particular sheet and after processing that table (changing names, numbers etc) I want to use it to rename the currently selected sheets only. </p>
  
  <p>e.g. I select ANY 5 sheets and I want a code that will rename ONLY those 5 sheets based on FIRST FIVE values from the table in particular SHEET. </p>
  
  <p>I did little bit of scratch work as below but it's not leading me anywhere. </p>
  
  <pre><code>Sub Sheets_Naming_current()
  
  Dim ws As Worksheet, wb As Workbook
  Dim nmRange As Range
  Dim count As Integer
  
  Set wb = ActiveWorkbook
  Set nmRange = wb.Sheets("Totals").Range("D2:D25")
  count = 0
  On Error Resume Next
  For Each ws In ActiveWindow.SelectedSheets
   count = count + 1     
        ws.Name = nmRange.Offset(i, 0).Value
  Next ws
  
  
  End Sub
  </code></pre>
  
  <p>Thanks in advance!</p>