Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Stilla
 
Posts: n/a
Default Tab-naming macro only works once :-(

Hi.. thanks to you guys, I learned to name tabs with a macro. I changed some
information on some worksheets, and tried to run the macro again to adjust
tab names... but nothing happened. What's wrong?

This is the macro I'm using (aa3 is the cell in each sheet that contains the
name):

Sub TABNAMING()
Dim i As Integer
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("aa3").Value
Next i
On Error GoTo 0
End Sub

  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Gary''s Student
 
Posts: n/a
Default Tab-naming macro only works once :-(

When using VBA to re-name sheets a common mishap is that the code tries to
assign a name that is already taken by another sheet the first time around.


--
Gary's Student


"Stilla" wrote:

Hi.. thanks to you guys, I learned to name tabs with a macro. I changed some
information on some worksheets, and tried to run the macro again to adjust
tab names... but nothing happened. What's wrong?

This is the macro I'm using (aa3 is the cell in each sheet that contains the
name):

Sub TABNAMING()
Dim i As Integer
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("aa3").Value
Next i
On Error GoTo 0
End Sub

  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
 
Posts: n/a
Default Tab-naming macro only works once :-(

Try this:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target.Address = "$A$1" Then
If Target.Value < "" Then
Me.Name = Target.Value
End If
End If
End Sub

Where "$A$1" needs to be changed to the cell that contains the tabname.
You will find, theat when you refresh, the names do not refresh
immediately. However, select A1 in groupmode, click CTRL+C and CTRL+V
- given that every sheet has an individual name, you should be finr

  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Stilla
 
Posts: n/a
Default Tab-naming macro only works once :-(

THANK YOU EVERYBODY!

"Stilla" wrote:

Hi.. thanks to you guys, I learned to name tabs with a macro. I changed some
information on some worksheets, and tried to run the macro again to adjust
tab names... but nothing happened. What's wrong?

This is the macro I'm using (aa3 is the cell in each sheet that contains the
name):

Sub TABNAMING()
Dim i As Integer
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("aa3").Value
Next i
On Error GoTo 0
End Sub

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
macro works for some users and doesn't for others Pooja Excel Discussion (Misc queries) 2 October 27th 05 08:27 PM
Make Alignment options under format cells available as shortcut dforrest Excel Discussion (Misc queries) 1 July 14th 05 10:58 PM
Runtime error for macro that works in workbook created in Crystal Excel Discussion (Misc queries) 1 June 22nd 05 08:43 PM
Macro won't run macro dave glynn Excel Discussion (Misc queries) 0 May 3rd 05 04:13 PM
Playing a macro from another workbook Jim Excel Discussion (Misc queries) 1 February 23rd 05 11:12 PM


All times are GMT +1. The time now is 09:12 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"