Rename a worksheet using a formula

[Downes51]

Hello.

I want to rename my worksheet with today's date preceded by the letters LB (space).

I've been tinkering with the syntax of this statement for a while and I can't get it to work.



ActiveSheet.Name = "=""LB ""&TEXT(TODAY(),""YYYY-MM-DD"")"


If I place the above formula in a cell it works just fine.
Any suggestions?

 

[Kenneth Hobson]

  On Error Resume Next
  ActiveSheet.Name = "LB " & Format(Date, "YYYY-MM-DD")

 

[Downes51]

Many thanks.

JD

 

[Rick Rothstein]

  On Error Resume Next
  ActiveSheet.Name = "LB " & Format(Date, "YYYY-MM-DD")

You should also be able to do it without the concatenation this way...

ActiveSheet.Name = Format(Date, "LB YYYY-MM-DD")

While I do not think the Format function will have any trouble with the LB embedded inside the format pattern text string (like the TEXT function on the worksheet does)... if you get a strange result where the LB is supposed to go, then precede the letter or letters that are not printing out correctly with a backslash (you can do this with the TEXT function in a worksheet formula too by the way). Let's say in your locale, the B did not print correctly, then put a backslash in front of it, like this...

ActiveSheet.Name = Format(Date, "L\B YYYY-MM-DD")

Same for the letter L if that does not print correctly,