Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
assigning text box input to a sheet | Excel Programming | |||
input # on sheet 1, pulls all info for # from sheet 2 | Setting up and Configuration of Excel | |||
Copy my active sheet to a new sheet and open with an input form | Excel Programming | |||
I want data on sheet 1 to input into sheet 2 also | Excel Worksheet Functions | |||
How to input additional text to multiple of existing cells that has text | Excel Worksheet Functions |