Tab naming
Hi all
I am trying to automate the process of naming a sheet with a given name. In cell A3 I have invoice numbers and would like the sheet name to change to this when I update this number. No other sheets are sourcing from this sheet. Can this be done automatically? Any help is much appreciated. Regards |
Tab naming
'-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range) '----------------------------------------------------------------- Const WS_RANGE As String = "A3" On Error GoTo ws_exit: Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target Me.Name = .Value End With End If ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (remove nothere from email address if mailing direct) "Pedro AM" <Pedro wrote in message ... Hi all I am trying to automate the process of naming a sheet with a given name. In cell A3 I have invoice numbers and would like the sheet name to change to this when I update this number. No other sheets are sourcing from this sheet. Can this be done automatically? Any help is much appreciated. Regards |
All times are GMT +1. The time now is 08:10 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com