Macro To Name Sheets Based On Cell Range

[tjeacret]

Hello! This is my first post but I have used this site many times in the past. I have a question I need help with. I have an excel workbook that I need a macro to name the sheets based on cell ranges. Here is what I need:

Name sheet4-sheet18 based on cell range sheet1 B4:B18

Thanks!

 

[Datsmart]

Put this code together to do what you are asking:

Sub SortFruit()
Set Rng = Sheets("Sheet1").Range("B4:B18")
    'Assign variables
    sn = ActiveSheet.Index
    i = 1
    'Cycle thru Range Text
    For Each c In Rng
        Worksheets(sn + i).Name = c.Value
        i = i + 1
    Next c
End Sub

The code will name the worksheet to the right of the active worksheet.
Code assumes you have Text in cells B4:B18 that is proper for naming a worksheet. It also assumes you have the proper number of worksheet.

 

[tjeacret]

This worked perfect! Thanks!