• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Rename multiple excel tabs based on a list in the same workbook

Rajeevrama

New Member
Hello, Good Day :)

I need a help to rename excel tabs. I need to rename tabs based on a list.

list is in sheet 5, column B , starting from B5.

Can you please help?
 
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Sheet5")
    Set Bereik = .Range("B5", .Range("B5:B20").Address)
    Namen = Application.Transpose(Bereik)
    i = LBound(Namen)
End With
For Each ws In Worksheets
    If ws.Name <> "Sheet5" Then
        ws.Name = Namen(i)
        i = i + 1
    End If
Next ws
End Sub
 
Back
Top