ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   change sheet name macro (https://www.excelbanter.com/excel-worksheet-functions/73275-change-sheet-name-macro.html)

WBTKbeezy

change sheet name macro
 
I have a large spreadsheet and I am trying to add a macro that allows me to
add a worksheet AND have an input box pop up so I can name the worksheet
whatever name I need it to be. Is this possible?

Duke Carey

change sheet name macro
 
VERY QUICK & VERY DIRTY

Sub newsheet()
Dim ws As Worksheet
Dim nm As String

Set ws = Worksheets.Add
ws.Name = InputBox("sheet name")
End Sub



"WBTKbeezy" wrote:

I have a large spreadsheet and I am trying to add a macro that allows me to
add a worksheet AND have an input box pop up so I can name the worksheet
whatever name I need it to be. Is this possible?


WBTKbeezy

change sheet name macro
 
That is perfect, quick and dirty can work sometimes...

Now is there a way to put it in a sepecific place in the workbook?

"Duke Carey" wrote:

VERY QUICK & VERY DIRTY

Sub newsheet()
Dim ws As Worksheet
Dim nm As String

Set ws = Worksheets.Add
ws.Name = InputBox("sheet name")
End Sub



"WBTKbeezy" wrote:

I have a large spreadsheet and I am trying to add a macro that allows me to
add a worksheet AND have an input box pop up so I can name the worksheet
whatever name I need it to be. Is this possible?


Duke Carey

change sheet name macro
 
Yup. The .Add method takes optional parameters of Before and/or After, so
you can specify where. In this case it is BEFORE sheet1

Sub newsheet()
Dim ws As Worksheet
Dim nm As String

Set ws = Worksheets.Add(befo=Worksheets("Sheet1"))
ws.Name = InputBox("sheet name")
End Sub


"WBTKbeezy" wrote:

That is perfect, quick and dirty can work sometimes...

Now is there a way to put it in a sepecific place in the workbook?

"Duke Carey" wrote:

VERY QUICK & VERY DIRTY

Sub newsheet()
Dim ws As Worksheet
Dim nm As String

Set ws = Worksheets.Add
ws.Name = InputBox("sheet name")
End Sub



"WBTKbeezy" wrote:

I have a large spreadsheet and I am trying to add a macro that allows me to
add a worksheet AND have an input box pop up so I can name the worksheet
whatever name I need it to be. Is this possible?


WBTKbeezy

change sheet name macro
 
Okay getting there... but now is there a way to have an input box for what
sheet you would like it before?

"Duke Carey" wrote:

Yup. The .Add method takes optional parameters of Before and/or After, so
you can specify where. In this case it is BEFORE sheet1

Sub newsheet()
Dim ws As Worksheet
Dim nm As String

Set ws = Worksheets.Add(befo=Worksheets("Sheet1"))
ws.Name = InputBox("sheet name")
End Sub


"WBTKbeezy" wrote:

That is perfect, quick and dirty can work sometimes...

Now is there a way to put it in a sepecific place in the workbook?

"Duke Carey" wrote:

VERY QUICK & VERY DIRTY

Sub newsheet()
Dim ws As Worksheet
Dim nm As String

Set ws = Worksheets.Add
ws.Name = InputBox("sheet name")
End Sub



"WBTKbeezy" wrote:

I have a large spreadsheet and I am trying to add a macro that allows me to
add a worksheet AND have an input box pop up so I can name the worksheet
whatever name I need it to be. Is this possible?



All times are GMT +1. The time now is 04:43 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com