View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default Excel 2002 : Can I speed fill tabs ?

You can use macros to do this kind of work--except for #3. You can't use
slashes in worksheet names.

#1.
Dim iCtr As Long
Dim wks As Worksheet
iCtr = 0
For Each wks In ActiveWorkbook.Worksheets
iCtr = iCtr + 1
wks.Name = Format(DateSerial(2007, iCtr, 1), "mmm-yy")
Next wks

#2.
Dim iCtr As Long
Dim wks As Worksheet
iCtr = 1996
For Each wks In ActiveWorkbook.Worksheets
iCtr = iCtr + 1
wks.Name = iCtr
Next wks

#2. (with 7 or less worksheets):
Dim iCtr As Long
For iCtr = 1 To 7
Worksheets(iCtr).Name = Format(iCtr, "ddd")
Next iCtr

#4.
Dim iCtr As Long
Dim wks As Worksheet
iCtr = 0
For Each wks In ActiveWorkbook.Worksheets
iCtr = iCtr + 1
wks.Name = "XP" & iCtr
Next wks




Mr. Low wrote:

Dear Sir,

My I know if I can speed fill the name of each worksheet (tab) in certain
sequence such as :

1 Jan-07, Feb07, Mar-07....
2. 1997, 1998, 1999, 2000 ...
2. Sun, Mon Tue, Wed ...
3 1/6, 2/6, 3/6.....
4 XP1, XP2, XP3 ...

I find that it is very time consuming and tedious to rename large number of
pages.

Thanks

Low

--
A36B58K641


--

Dave Peterson