worksheet tabname

[Trevor3007]

hi & good evening.


i have a worksheet that on a weekly basis needs the tab changed but will always have the same text after it IE

This bit changes weekly-This bit never changes

This bit changes weekly would use the info in cell D1

very much appreciate your help.

KR
Trevor3007

 

[Joe4]

Try:

ActiveSheet.Name = Range("D1") & "-This bit never changes"

 

[shg]

with Worksheets(1)
  .Name = .range("D1").value & "this bit never changes"
end with

 

[Trevor3007]

thank you. but it did not work for me :{

 

[Joe4]

thank you. but it did not work for me

You may two replies. Which one didn't work for you?

Please post your ENTIRE VBA procedure, so we can see how you have placed it in your code.

 

[Trevor3007]

thank you & sorry the confusion.

I don't have any code ....my skills are via 'record macro'

 

[Joe4]

If you use this simple macro, and make sure that you are on the sheet you want to rename and run it, it should do what you want:

Sub MyRename()
    ActiveSheet.Name = Range("D1") & "-This bit never changes"
End Sub

Obviously, you will need to replace "-This bit never changes" with whatever it is that you really want in there.

If it does not do what you want, then I suspect you are leaving out some important details that we need to know about.

 

[Trevor3007]

thanks joe,

works but it keeps change sheet 1 *tab name DATA. the sheet I am using is sheet2 (tab name Input)

thank you .

 

[Joe4]

the sheet I am using is sheet2 (tab name Input)

That's the important detail you were leaving out!
That is why I said:

make sure that you are on the sheet you want to rename and run it

If you want to run it on a specific sheet that is NOT the active sheet, there are ways to do that, but we need to know those important details.
If it is always the second sheet you want to apply it to, here is one way:

Sub MyRename()
    Sheets(2).Name = Sheets(2).Range("D1") & "-This bit never changes"
End Sub