Excel Macro for Renaming Tabs

Hi Guest,

Through macros? I don't know offhand - I'd have to play around a bit first. I'm sure it's possible through VBA*. Have you used VBA before?

Mike

*=Visual Basic for Applications

I'm pretty savvy with excel, but VBA is a little knew to me.

hopefully you can help!

new*

If I get a chance, I'll play around after work.

hi,

renaming tabs in MS Excel has already been addressed in these forums. it's here. it's not exactly what you're looking for, but it might give you an idea.

else, try this link. <-- this answer came from Chrisg288.

Based on the 'langyaw' tip for this problem and considering the solution proposal by 'chrisg288' in the thread: "Renaming Worksheet Tabs in an Excel Workbook", You can do this:

- Open Excel and initiate a new macro record

- Give to macro the name "Rename Sheets"

- Stop Recorder without any command

Select Tools> Macros Or Developer>Macros and select the "Rename Sheets" macro.

Choose EDIT

Copy and paste the following code into macro (between Sub Rename Sheets and End Sub):

Sub RenameSheet()

'

' RenameSheet Macro

'

Dim content As String

Dim pointer As Integer

Dim Dsheets As Object

pointer = 0

For Each Dsheets In ActiveWorkbook.Sheets

SheetName = Dsheets.Name

If pointer > 0 Then

Sheets(SheetName).Select

content = Range("L1").Value

If content = vbNullString Then

content = "Nodate" & pointer

pointer = pointer + 1

End If

Dsheets.Name = content

Else

pointer = pointer + 1

End If

Next Dsheets

'Restore titles of last sheets

Sheets(content).Select

Sheets(content).Name = "End sheet"

End sub

Notes:

The code above was developed in Excel 2007.

Replace "End sheet" in the last line above with the name of the last sheet you really use.

The names for all sheets, excepted first and last one, is obtained from column L, row 1 in each sheet. If you change the address for names you must change line 13 where you see "L1" with new address.

Fco

Thanks a lot.

Amal

09804220099

Another method found here

http://www.computing.net/answers/programming/using-vb-to-rename-excel-sheet-tabs/6024.html