naming tabs automated

[officegirl]

I need to name numerous tabs in a worksheet from one cell within that
worksheet, I have been retyping it , is there a way to copy it to the tab ?

 

[Gary''s Student]

This small macro assumes that the desired names are in cell A1 of each sheet:

Sub name_um()
For Each ws In Worksheets
ws.Name = ws.Range("A1").Value
Next
End Sub

 

[dlw]

copy the name, in re-name mode on the tab, do a <Ctrl><v>

 

[Bernard Liengme]

You will need to use VBA. Here is a subroutine that works:

Sub NameSheets()
For Each ws In Worksheets
ws.Name = ws.Range("A1").Value
Next
End Sub

New to VBA? See David McRitchie's site on "getting started" with VBA
http://www.mvps.org/dmcritchie/excel/getstarted.htm

best wishes

 

[JE McGimpsey]

One way:

Put this in the ThisWorkbook code module of your workbook:


Private Sub Workbook_SheetChange( _
ByVal Sh As Object, _
ByVal Target As Excel.Range)
Dim sSheetName As String
With Target
If Not Intersect(.Cells, Range("A1")) Is Nothing Then
sSheetName = Range("A1").Text
If Not sSheetName = vbNullString Then
On Error Resume Next
Sh.Name = sSheetName
On Error GoTo 0
If Not sSheetName = Sh.Name Then _
MsgBox "Invalid worksheet name in cell A1"
End If
End If
End With
End Sub

 

[officegirl]

Thanks

You will need to use VBA. Here is a subroutine that works:

Sub NameSheets()
For Each ws In Worksheets
ws.Name = ws.Range("A1").Value
Next
End Sub

New to VBA? See David McRitchie's site on "getting started" with VBA
http://www.mvps.org/dmcritchie/excel/getstarted.htm

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email

 

[officegirl]

thanks so much

copy the name, in re-name mode on the tab, do a <Ctrl><v>