ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Macro problem (https://www.excelbanter.com/excel-worksheet-functions/72547-macro-problem.html)

Bonbon

Macro problem
 
Is there a macro to name the sheet the name of a cell, with a slight change?
e.g. the cell is : M-13.06.2005, and i want the sheet to be named M-13.06.05.
However i would like to name 5 days of the week, everytime the macro is run,
i.e. it names monday-friday each time.

any help would be hugely appreciated.
Bonbon

Gary''s Student

Macro problem
 
Just an example:


In Sheet1, A1, enter: M-13.06.2005
In Sheet1, B1, enter: =REPLACE(A1,9,2,D1) & " "&TEXT(TODAY(),"DDDDD")

Then enter and run the following macro:

Sub Macro1()
Sheets("Sheet1").Select
Sheets("Sheet1").Name = Range("B1").Value
End Sub

--
Gary''s Student


"Bonbon" wrote:

Is there a macro to name the sheet the name of a cell, with a slight change?
e.g. the cell is : M-13.06.2005, and i want the sheet to be named M-13.06.05.
However i would like to name 5 days of the week, everytime the macro is run,
i.e. it names monday-friday each time.

any help would be hugely appreciated.
Bonbon


Bonbon

Macro problem
 
Cool, but what should i do if i need it to name 5 days? Because that macro
changes one sheets name.

Thx again

"Gary''s Student" wrote:

Just an example:


In Sheet1, A1, enter: M-13.06.2005
In Sheet1, B1, enter: =REPLACE(A1,9,2,D1) & " "&TEXT(TODAY(),"DDDDD")

Then enter and run the following macro:

Sub Macro1()
Sheets("Sheet1").Select
Sheets("Sheet1").Name = Range("B1").Value
End Sub

--
Gary''s Student


"Bonbon" wrote:

Is there a macro to name the sheet the name of a cell, with a slight change?
e.g. the cell is : M-13.06.2005, and i want the sheet to be named M-13.06.05.
However i would like to name 5 days of the week, everytime the macro is run,
i.e. it names monday-friday each time.

any help would be hugely appreciated.
Bonbon



All times are GMT +1. The time now is 02:28 PM.

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