Macro for renaming spreadsheet tabs in workbook

[pklimchuk]

Hello I have a Macro that would rename the spreadsheet tab to what ever is in A5.

my Issue is A5 the text is to big how to I make it shorted and if possible enter the Month and Year after the text.

Please Help

ActiveSheet.Name = [A5].Value


Thanks

 

[VoG]

Try

ActiveSheet.Name = Left(Range("A5").Value, 27) & Format(Date, "mmyy")

 

[pklimchuk]

Try

ActiveSheet.Name = Left(Range("A5").Value, 27) & Format(Date, "mmyy")

Peter

Thank you Thank you. always helpful.

 

[pklimchuk]

peter is there a way to make the Tabs date one month behind.

 

[VoG]

Try

ActiveSheet.Name = Left(Range("A5").Value, 27) & Format(DateAdd("m", -1, Date), "mmyy")

 

[pklimchuk]

Thank you