Auto Name Tab

[gheyman]

I have code that names the newly created tab by the text that is in cell Q2

Sub Name_ODDTab()
Application.Calculation = xlCalculationManual
On Error GoTo ErrTrap
ActiveSheet.Name = Range("$Q$2").Value
Exit Sub
ErrTrap:
ActiveSheet.Name = "Default Name1"
End Sub

Is there a way that I can name the tab by the value in Q2 plus "_ODD". I am tyring to concanenate the value in Q2 (1.00.00) and _ODD so that the tab name comes out 1.00.00_ODD

Help is appreciated very much

 

[lenze]

Wouldn't it just be

ActiveSheet.Name = Range("$Q$2").Value & "_ODD"

lenze

 

[VoG]

Try

ActiveSheet.Name = Range("$Q$2").Value & "_ODDD"