ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   VBA Script to Rename Tab Name to Whatever Name is in Cell A1 (https://www.excelbanter.com/excel-discussion-misc-queries/136380-vba-script-rename-tab-name-whatever-name-cell-a1.html)

Michael

VBA Script to Rename Tab Name to Whatever Name is in Cell A1
 
Just as the Subject Line says I need to automatically rename the Tab with the
contents in a particular cell. I think there is a way to do it using VBA
script but I am clueless.

Thanks

Gary''s Student

VBA Script to Rename Tab Name to Whatever Name is in Cell A1
 
Because it is worksheet code, it is very easy to install and automatic to use:

1. right-click the tab name near the bottom of the window
2. select View Code - this brings up a VBE window
3. paste the stuff in and close the VBE window

Now try entering material in A1. If you have any concerns, first try it on
a trial worksheet.

If you save the workbook, the macro will be saved with it.


To remove the macro:

1. bring up the VBE windows as above
2. clear the code out
3. close the VBE window

To learn more about macros in general, see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

To learn more about Event Macros (worksheet code), see:

http://www.mvps.org/dmcritchie/excel/event.htm




--
Gary''s Student
gsnu200712


Gary''s Student

VBA Script to Rename Tab Name to Whatever Name is in Cell A1
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1"), Target) Is Nothing Then
Exit Sub
End If
v = Target.Value
ActiveSheet.Name = v
End Sub

This is worksheet code, don't paste it into a standard module.
--
Gary''s Student
gsnu200712


Michael

VBA Script to Rename Tab Name to Whatever Name is in Cell A1
 
Sorry but now I need to know how to insert the code. Any additinal kindness?

"Gary''s Student" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1"), Target) Is Nothing Then
Exit Sub
End If
v = Target.Value
ActiveSheet.Name = v
End Sub

This is worksheet code, don't paste it into a standard module.
--
Gary''s Student
gsnu200712



All times are GMT +1. The time now is 04:21 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com