Name Sheet with Input Box and text
 

Hello,

I am trying to build a macro to add code to the front of the current
sheet name through an input box.

eg. enter F01 into box and all sheets change to F01_sheet1, F01_sheet2
etc.

I can get my code to rename based on input but how do I combine this
to existing sheet name?

Sub Namesheets()
'
Dim Dept_Code As String
Dept_Code = InputBox("Enter Dept Code (e.g. F01)")
'
Sheets("Weekly Sales Input Template").Select
Sheets("Weekly Sales Input Template").Name = Dept_Code

End Sub

Any help would be great

Name Sheet with Input Box and text
 

Hi
Is this what you want?

Sheets("Weekly Sales Input Template").Name = Dept_Code & "_" &
Sheets("Weekly Sales Input Template").Name

If you need this in a loop for all sheets do

for each wks in Activeworkbook.Worksheets
wks.Name = Dept_Code & "_" & wks.name
next wks

regards
Paul

On Mar 6, 9:46*am, ra wrote:
Hello,

I am trying to build a macro to add code to the front of the current
sheet name through an input box.

eg. enter F01 into box and all sheets change to F01_sheet1, F01_sheet2
etc.

I can get my code to rename based on input but how do I combine this
to existing sheet name?

Sub Namesheets()
'
Dim Dept_Code As String
* Dept_Code = InputBox("Enter Dept Code (e.g. F01)")
'
* * Sheets("Weekly Sales Input Template").Select
* * Sheets("Weekly Sales Input Template").Name = Dept_Code

End Sub

Any help would be great

Name Sheet with Input Box and text
 

On 6 Mar, 09:58, wrote:
Hi
Is this what you want?

Sheets("Weekly Sales Input Template").Name = Dept_Code & "_" &
Sheets("Weekly Sales Input Template").Name

If you need this in a loop for all sheets do

for each wks in Activeworkbook.Worksheets
* * wks.Name = Dept_Code & "_" & wks.name
next wks

regards
Paul

On Mar 6, 9:46*am, ra wrote:



Hello,

I am trying to build a macro to add code to the front of the current
sheet name through an input box.

eg. enter F01 into box and all sheets change to F01_sheet1, F01_sheet2
etc.

I can get my code to rename based on input but how do I combine this
to existing sheet name?

Sub Namesheets()
'
Dim Dept_Code As String
* Dept_Code = InputBox("Enter Dept Code (e.g. F01)")
'
* * Sheets("Weekly Sales Input Template").Select
* * Sheets("Weekly Sales Input Template").Name = Dept_Code

End Sub

Any help would be great- Hide quoted text -

- Show quoted text -

Thanks Paul, that work perfectly.
I have been trying something similar but kept getting an error
"Expected end of statment"... thanks again for your help.