I am trying to add a Working in a Macro and then renaming the
Worksheet, but Excel likes to name the Sheets 1,2,3,etc, and you don't
know what the sheet name will be to select to rename at the time you
run the Macro. The following is a simple code that I have so far:
mnth = Cells(1, 4)
Sheets.Add
Sheets("Sheet2").Select
Sheets("Sheet2").Name = mnth

Can anyone help me get a solution to this problem?

Frank

Try:
Sub NewWks()
Sheets.Add
res = InputBox("What is the New Sheet Name?")
ActiveSheet.Name = res
End Sub

Corey....
<(E-Mail Removed)> wrote in message
news:5ebd3769-bfab-43a0-ad26-(E-Mail Removed)...
>I am trying to add a Working in a Macro and then renaming the
> Worksheet, but Excel likes to name the Sheets 1,2,3,etc, and you don't
> know what the sheet name will be to select to rename at the time you
> run the Macro. The following is a simple code that I have so far:
> mnth = Cells(1, 4)
> Sheets.Add
> Sheets("Sheet2").Select
> Sheets("Sheet2").Name = mnth
>
> Can anyone help me get a solution to this problem?
>
> Frank

On Jun 2, 9:38*pm, "Corey ...." <c...@exemail.com.au> wrote:
> Try:
> Sub NewWks()
> * * Sheets.Add
> * * res = InputBox("What is the New Sheet Name?")
> * * ActiveSheet.Name = res
> End Sub
>
> Corey....<wfgfree...@gmail.com> wrote in message
>
> news:5ebd3769-bfab-43a0-ad26-(E-Mail Removed)...
>
>
>
> >I am trying to add a Working in a Macro and then renaming the
> > Worksheet, but Excel likes to name the Sheets 1,2,3,etc, and you don't
> > know what the sheet name will be to select to rename at the time you
> > run the Macro. *The following is a simple code that I have so far:
> > * *mnth = Cells(1, 4)
> > * *Sheets.Add
> > * *Sheets("Sheet2").Select
> > * *Sheets("Sheet2").Name = mnth
>
> > Can anyone help me get a solution to this problem?
>
> > Frank- Hide quoted text -
>
> - Show quoted text -

Thanks for your help.

Frank

Frank,

Dim mnth As String
mnth = Cells(1, 4).Text
Worksheets.Add before:=Worksheets(1), Count:=1
Worksheets(1).Name = mnth
--
Jim Cone
Portland, Oregon USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




<(E-Mail Removed)>
wrote in message
I am trying to add a Working in a Macro and then renaming the
Worksheet, but Excel likes to name the Sheets 1,2,3,etc, and you don't
know what the sheet name will be to select to rename at the time you
run the Macro. The following is a simple code that I have so far:
mnth = Cells(1, 4)
Sheets.Add
Sheets("Sheet2").Select
Sheets("Sheet2").Name = mnth

Can anyone help me get a solution to this problem?
Frank