Renaming worksheet on the basis of workbook name

  • Thread starter Thread starter andreashermle
  • Start date Start date
A

andreashermle

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
 
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
Click to expand...

How about:

Sub ReNameSheet()
numberr = "_" & Right(Split(ActiveWorkbook.Name, ".")(0), 1)
Sheets(4).Name = Sheets(4).Name & numberr
End Sub
 
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 -
Click to expand...

Hi James,

another praise. Works just fine, Thank you very much for your great
support.

Regards, Andreas
 
Back
Top