VBA code to remane shhets

[Harikrushna]

I have list of 162 names.

I also have 162 sheets in workbook.

I want to give name to 162 sheets from the list of 162 names.

please provide VB code.

 

[alansidman]

Please provide range that holds the 162 names.

 

[Harikrushna]

Sheet name = list

cell range b2 to B162

 

[alansidman]

Option Explicit


Sub rename()
    Dim  i As Long
     Dim ws As Worksheet
    i = 2
    For Each ws In Worksheets
        If ws.Name <> "list" Then
            ws.Name = Sheets("list").Range("B" & i)
            i = i + 1
        End If
     Next ws
End Sub

 

[Harikrushna]

Run time Error 1004

application-defined or object-defined error

 

[alansidman]

When you run the code, click on debug and tell us which line of code is highlighted. I just ran the code and it works for me. Cannot replicate your issue. Double check that you copied the code correctly.

 

[hiker95]

Sheet name = list

cell range b2 to B162

Harikrushna,

Range B2:B162 = 161 cells?????

 

[hiker95]

Harikrushna,

Range B2:B162 = 161 cells?????

Harikrushna,

Sorry about that.

 

[hiker95]

I have list of 162 names.

I also have 162 sheets in workbook.

I want to give name to 162 sheets from the list of 162 names.

please provide VB code.

Harikrushna,

1. Is this a homework assignment?

2. So that we can better understand what you are asking, can we see your workbook/worksheets?

You can post your workbook/worksheets to the following free site (sensitive data changed), mark the workbook for sharing, and, provide us with a link to your workbook:

https://dropbox.com