R
ra
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
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