Add cell value to existing tab name - VBA

Hi Diane, welcome to the forum.

Option Explicit

Sub sAmendSheetNames()

Dim sSuffix As String
sSuffix = Sheets("DMC-UPS-Summary").Range("A8")

Dim sh As Worksheet
For Each sh In Worksheets
    sh.Name = sh.Name & " " & sSuffix
Next 'sh

End Sub

Regards, TMS

Sub sListSheetNames()

Dim sh As Worksheet
For Each sh In Worksheets
    Debug.Print sh.Name
Next 'sh

End Sub

'Output:
'DMC-UPS-GL-Sum 000002RXXX
'DMC-UPS-Summary 000002RXXX
'DMC-UPS-Detail 000002RXXX

Regards, TMS

You're welcome.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.