Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Renaming worksheet on the basis of workbook name
Dear Experts:
I got an excel file named Chapter1.xls The fourth worksheet of this file should be renamed via VBA as follows: NoMatch_1 I would like to use this code (snippet) for the renaming of other worksheets as well, such as File name: Chapter2.xls: renaming of worksheet 4 to 'NoMatch_2' File name: Chapter3.xls: renaming of worksheet 4 to 'NoMatch_3' That is the number at the end of the relevant excel file name is to be placed at the end of the fourth worksheet name. (NoMatch_relevant number) Help is much appreciated. Thank you very much in advance. Regards, Andreas |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Renaming worksheet on the basis of workbook name
On Jun 19, 3:23*pm, andreashermle wrote:
Dear Experts: I got an excel file named Chapter1.xls The fourth worksheet of this file should be renamed via VBA as follows: NoMatch_1 I would like to use this code (snippet) for the renaming of other worksheets as well, such as File name: Chapter2.xls: renaming of worksheet 4 to 'NoMatch_2' File name: Chapter3.xls: renaming of worksheet 4 to 'NoMatch_3' That is the number at the end of the relevant excel file name is to be placed at the end of the fourth worksheet name. (NoMatch_relevant number) Help is much appreciated. Thank you very much in advance. Regards, Andreas How about: Sub ReNameSheet() numberr = "_" & Right(Split(ActiveWorkbook.Name, ".")(0), 1) Sheets(4).Name = Sheets(4).Name & numberr End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Renaming worksheet on the basis of workbook name
On Jun 20, 12:02*am, James Ravenswood
wrote: On Jun 19, 3:23*pm, andreashermle wrote: Dear Experts: I got an excel file named Chapter1.xls The fourth worksheet of this file should be renamed via VBA as follows: NoMatch_1 I would like to use this code (snippet) for the renaming of other worksheets as well, such as File name: Chapter2.xls: renaming of worksheet 4 to 'NoMatch_2' File name: Chapter3.xls: renaming of worksheet 4 to 'NoMatch_3' That is the number at the end of the relevant excel file name is to be placed at the end of the fourth worksheet name. (NoMatch_relevant number) Help is much appreciated. Thank you very much in advance. Regards, Andreas How about: Sub ReNameSheet() numberr = "_" & Right(Split(ActiveWorkbook.Name, ".")(0), 1) Sheets(4).Name = Sheets(4).Name & numberr End Sub- Hide quoted text - - Show quoted text - Hi James, another praise. Works just fine, Thank you very much for your great support. Regards, Andreas |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
renaming a workbook | Excel Programming | |||
Workbook renaming | Excel Programming | |||
Workbook renaming! | Excel Programming | |||
Renaming workbook! | Excel Programming | |||
Workbook crashes after renaming a worksheet - References problem? | Excel Programming |