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?

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?

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?

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(before:=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?

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(before:=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?