Name the sheet tab as a cell text?

[mowen]

Hi
I'm using the code under to name the sheet tab as the text in A12, but I want to add some extra characthers to the sheet name.
It's possible?

i.e
If the text in A12 is Bravo, I want the name in the sheet tab to be Bravo_st.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$12" Then
On Error Resume Next
Application.EnableEvents = False
Me.Name = Target.Value
Application.EnableEvents = True
End If
End Sub

best regards
Rune

[crispbd]

Try the following code modification (shown in bold).

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$12" Then
On Error Resume Next
Application.EnableEvents = False
Me.Name = Target.Value & "_st"
Application.EnableEvents = True
End If
End Sub

[mowen]

It was no change.
Thanks anyway crispbd.

Other suggestion?

Rune

[mowen]

My fault crispbd, it works!
I write the code wrong place.
Thank you very much
Rune