rename excel tabs months for year without doing it individually
 

I want to rename the tabs of a new work book with the months of the year jan
09 to dec 09 without having to do it individually.
I'm sure it can be done by select all tabs - but then what??

rename excel tabs months for year without doing it individually
 

If you don't want to do it manually (what the heck... 12 stupid changes),
then you need VBA code for it.


--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music


"Vicky P" wrote:

I want to rename the tabs of a new work book with the months of the year jan
09 to dec 09 without having to do it individually.
I'm sure it can be done by select all tabs - but then what??

rename excel tabs months for year without doing it individuall
 

Wigi - thank you for answering
it is not so much that I can't rename 12 tabs manually - but I am such a
baby at this and I really do want to learn "how to do stuff"
In the future i may need to rename 365 tabs - then it would'nt be so easy -
so start small.
I've learnt such a lot - and its always a joy when you find something out
that makes life easier / quicker
I have opened VBA code - but what do you do when you are there??


"Wigi" wrote:

If you don't want to do it manually (what the heck... 12 stupid changes),
then you need VBA code for it.


--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music


"Vicky P" wrote:

I want to rename the tabs of a new work book with the months of the year jan
09 to dec 09 without having to do it individually.
I'm sure it can be done by select all tabs - but then what??

rename excel tabs months for year without doing it individuall
 

To learn use
Sub RenameTabs()
' Renames all worksheet tabs with each worksheet's cell A1 contents.
'If cell A1 has no content, then that tab is not renamed.

For i = 1 To Sheets.Count
If Worksheets(i).Range("A1").Value < "" Then
Sheets(i).Name = Worksheets(i).Range("A1").Value
End If
Next

End Sub

Source:
http://it.toolbox.com/wiki/index.php...Worksheet_Tabs

"Vicky P" wrote:

Wigi - thank you for answering
it is not so much that I can't rename 12 tabs manually - but I am such a
baby at this and I really do want to learn "how to do stuff"
In the future i may need to rename 365 tabs - then it would'nt be so easy -
so start small.
I've learnt such a lot - and its always a joy when you find something out
that makes life easier / quicker
I have opened VBA code - but what do you do when you are there??


"Wigi" wrote:

If you don't want to do it manually (what the heck... 12 stupid changes),
then you need VBA code for it.


--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music


"Vicky P" wrote:

I want to rename the tabs of a new work book with the months of the year jan
09 to dec 09 without having to do it individually.
I'm sure it can be done by select all tabs - but then what??

rename excel tabs months for year without doing it individuall
 

Couple more.

Type January-2009 in A1 of sheet1

Copy down to A12 then run macro.

Sub NameWS()
'name sheets with list in A1:A12 on first sheet
On Error Resume Next
For i = 1 To Worksheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1).Value
Next i
End Sub

The next macro will rename existing sheets to month and day

Sub NameSheets()
'Chip Pearson Feb 14th, 2007
Dim Ndx As Long
Dim StartMonth As Variant
StartMonth = Application.InputBox(prompt:="Enter the month number.",
Type:=1)
If StartMonth = False Then
Exit Sub
End If
For Ndx = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(Ndx).Name = Format(DateSerial( _
IIf(StartMonth = 1, Year(Now) + 1, Year(Now)), StartMonth, Ndx), _
"dd mmm yyyy")
Next Ndx
End Sub

Maybe you want to add new sheets for a month

Sub Add_Sheets()
For i = 31 To 1 Step -1
Worksheets.Add.Name = "October " & i
Next
End Sub


Gord Dibben MS Excel MVP

On Tue, 7 Oct 2008 17:05:07 -0700, Sheeloo
wrote:

To learn use
Sub RenameTabs()
' Renames all worksheet tabs with each worksheet's cell A1 contents.
'If cell A1 has no content, then that tab is not renamed.

For i = 1 To Sheets.Count
If Worksheets(i).Range("A1").Value < "" Then
Sheets(i).Name = Worksheets(i).Range("A1").Value
End If
Next

End Sub

Source:
http://it.toolbox.com/wiki/index.php...Worksheet_Tabs

"Vicky P" wrote:

Wigi - thank you for answering
it is not so much that I can't rename 12 tabs manually - but I am such a
baby at this and I really do want to learn "how to do stuff"
In the future i may need to rename 365 tabs - then it would'nt be so easy -
so start small.
I've learnt such a lot - and its always a joy when you find something out
that makes life easier / quicker
I have opened VBA code - but what do you do when you are there??


"Wigi" wrote:

If you don't want to do it manually (what the heck... 12 stupid changes),
then you need VBA code for it.


--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music


"Vicky P" wrote:

I want to rename the tabs of a new work book with the months of the year jan
09 to dec 09 without having to do it individually.
I'm sure it can be done by select all tabs - but then what??