How can i rename a selection of multiple sheets from a list which i
have highlighted

Hi Al,

How can i rename a selection of multiple sheets from a list which i
have highlighted

How have you highlighted the sheets and how are they to be renamed?


---
Regards,
Norman



"al" wrote in message
oups.com...
How can i rename a selection of multiple sheets from a list which i
have highlighted

Eg: From sheet "List":
A1:RenameA
A2:RenameB
A3:RenameC

Selected sheet: Sheet 1, sheet2, sheet3

But i wanted to have it flexible - working on selected sheets & cell

ie:Change name of selected sheets to selected cells value

thxs

Hi Al,

Try something like:
'================
Public Sub Tester01()
Dim WB1 As Workbook
Dim WB2 As Workbook
Dim SH As Worksheet
Dim rng As Range
Dim i As Long

Set WB1 = Workbooks("Book1.xls")
Set WB2 = Workbooks("Book2.xls")

With WB2.Sheets("Sheet1")
Set rng = .Range("A1", .Range("A1").End(xlDown))
End With

For Each SH In WB1.Windows(1).SelectedSheets
i = i + 1
SH.Name = rng(i).Value
Next

End Sub
'<<================

Note that no error checking is included.

---
Regards,
Norman



"al" wrote in message
oups.com...
Eg: From sheet "List":
A1:RenameA
A2:RenameB
A3:RenameC

Selected sheet: Sheet 1, sheet2, sheet3

But i wanted to have it flexible - working on selected sheets & cell

ie:Change name of selected sheets to selected cells value

thxs