Hello GingerT,
Try the following code:-
Sub RenameWkSheets()
Dim shtName As Variant
Dim rng As Range, ws As Worksheet
Dim i As Long
With Sheets("Summary")
Set rng = .Range("A1", .Range("A" & .Rows.Count).End(xlUp).Address)
shtName = Application.Transpose(rng)
i = LBound(shtName)
End With
For Each ws In Worksheets
If ws.Name <> "Summary" Then
ws.Name = shtName(i)
i = i + 1
End If
Next ws
End Sub
It will rename sheets from a list that you may have in Column A of your Summary sheet starting at A1.
I hope that this helps.
Cheerio,
vcoolio.
This worked perfectly except I am getting a run-time error '9' saying subscript out of range at the end. Referencing
ws.Name=shtName(i)
Also, is there a way to change the hyperlinks on the summary page that refer to these tabs using the original list?
GT