Naming Worksheet

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am wanting to automatically name a range of worksheets based on the values
contained in a range of cells located in another worksheet in the same
workbook.

Can this be done and how would I go about it
 
Denis,

Try something like the following. It will change the name of the
first sheet in the workbook to the value in A1 of Sheet3.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target
As Range)
If Sh.Name = "Sheet3" And Target.Address = "$A$1" Then
Worksheets(1).Name =
Worksheets("Sheet3").Range("A1").Text
End If
End Sub

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
Denis

Sub NameWS()
'name sheets from data list in A1:A10 on first sheet
For i = 2 To 10
Sheets(i).Name = Sheets(1).Cells(i, 1).Value
Next
End Sub


Gord Dibben Excel MVP
 
Back
Top