Using VBA to rename worksheets

[JGB284]

Hi- I am a long term Excel user but with limited VBA knowledge.
In simplified terms, I have a workbook where on the first worksheet I have a set of financial data to be input into 4 columns - say B, C, D and E. The cumulative data fro each month is carried forward each day on a separate worksheet. The Headers are on row 3 and brought forward figures from the previous day are on row 4. Data input starts on row 5 and goes down to row 49. Row 50 is set up with totals for the four columns. The worksheet needs to be renamed for the date of the transactions for example - 1st October. Before the next day I need to create a copy of the previous day's template and bring forward the data from row 50 on the previous day and place it in row 4 as the brought forward totals and clear the contents of the previous day's transactions ready to input the data for the new day.
I have prepared some VBA code to do this task which works fine. What I would also like it to do is use VBA to rename the worksheet tab by reference to the previous day - so in this instance I would want the worksheet name tab to be 2nd October etc etc through the month.
Many Thanks

 

[Jimmypop]

Hi there and welcome to the forum

There are several ways to rename sheets... depends on if you want to do it manually or with a button etc... Maybe provide us on how you want to approach renaming? Should it be done after a change or according to a cell value? See different options below:

Sheets("Sheet1").name = Range("A1").Value ‘Using sheet name

Activesheet.Name = "mySheet" ‘Renames activesheet

Sheets(5).Name = "mySheet5" ‘Renames sheet via sheet codename

Sheets("Sheet1").name = Range("A1").Value ‘Renames sheet with value in a cell

 

[JGB284]

Hi there and welcome to the forum

There are several ways to rename sheets... depends on if you want to do it manually or with a button etc... Maybe provide us on how you want to approach renaming? Should it be done after a change or according to a cell value? See different options below:

Sheets("Sheet1").name = Range("A1").Value ‘Using sheet name

Activesheet.Name = "mySheet" ‘Renames activesheet

Sheets(5).Name = "mySheet5" ‘Renames sheet via sheet codename

Sheets("Sheet1").name = Range("A1").Value ‘Renames sheet with value in a cell

Many thanks for you prompt response - that is helpful