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

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

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